[angvelem]

Эээ.

Код:

var
  sl : TStringList;
  I  : Integer;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile('MyFile.txt');
    for I := 0 to sl.Count - 1 do
    begin
       // проверяем, что в строке
    end;
    sl.SaveToFile(MyFile_1.txt);
  finally
    sl.Free;
  end;
end;

Набрано здесь же, за достоверность не ручаюсь.