var
  f: hFile;
  st: _OfStruct;
  count: Dword;
  buf: array[0..255] of char;

begin
  fillchar(st,sizeof(st),0);
  f := OpenFile('c:\1.txt',st,OF_READ);
    repeat
      fillchar(buf,sizeof(buf),0);
      ReadFile(f,buf,sizeof(buf),count,nil);
      {...операции с блоком данных buf...}
    until
      count = 0;
  CloseHandle(f);

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;