procedure TForm4.Button1Click(Sender: TObject);
var
f1 : TextFile;
line:string;
s:char;
begin
AssignFile(f1, edtFile.Text);
Reset(f1);
memo1.lines.clear;
while not Eof(f1) do
begin
Read(f1, s);
if (s=#$D) then
begin
memo1.lines.Add(line);
line:='';
end
else
begin
line:=line+s;
end;
end;
closefile(f1);
end;