while not Eof(fout) do
begin
  while not Eoln(fout) do
  begin
    read(fout, temp);
    lbl3.Caption := lbl3.Caption + temp;
  end;
  lbl3.Caption := lbl3.Caption + #10 + #13;
end;