procedure TForm1.Button1Click(Sender: TObject);
var
 List:TStringList;
 i:integer;
 Source:string;
begin
 List:=TStringList.Create;
 if OpenDialog1.Execute then 
 List.LoadFromFile(Opendialog1.filename)
 else exit;
 for i:=0 to List.count-1 do begin
  if pos('#13#10',List.Strings[i])> 0 then
  Source:=List.Strings[i];
delete(Source,pos('#13#10',List.Strings[i]),length(List.Strings[i]));
  List.strings[i]:=source;
end;
 .........
.........
........ // тут собственно можешь делать что угодно со    
        //строками

 List.SaveToFile(OpenDialog1.FileName);
 List.free;
end;