finde og redigere

Kode 

var
Temp: TStringList;
i,result: Integer;
search,sti: String;
begin
  search := 'Søgeord';
  sti:= 'Sti til txt filen';
  Temp := TStringList.Create;
  Temp.LoadFromFile(sti);
  for i:=0 to Temp.Count-1 do
  begin
    if Pos(search,Temp[i]) > 0 then
    result := i;
  end;
  for i:=0 to result do
  Temp[i] := '';
  Temp.SaveToFile(sti);
  Temp.Free;

Kode 

var
Temp: TStringList;
i,result: Integer;
search,sti: String;
begin
  search := 'Søgeord';
  sti:= 'Sti til txt filen';
  Temp := TStringList.Create;
  Temp.LoadFromFile(sti);
  for i:=0 to Temp.Count-1 do
  begin
    if Pos(search,Temp[i]) > 0 then
    result := i;
  end;
  for i:=result to result+7 do // 7 = antal linier fjernes
  Temp[i] := '';
  Temp.SaveToFile(sti);
  Temp.Free;

jeg skal finde en måde at søge efter et bestemt ord i en txt fil og derefter, rydde x antal linier