Fórum Detectar o final do papel #210564

procedure TForm1.Button1Click(Sender: TObject);
var
  imp : TextFile;
begin

  AssignFile( imp, ´lpt1´ );
  Rewrite( imp );
  Write( imp );
  Writeln( imp, ´RELAÇÃO DE CLIENTES´ );
  Writeln( imp );
  Writeln( imp );
  Writeln( imp );

  with Query1 do
  begin
    Close;
    Open;
  end;

  Query1.First;
  while not ( Query1.Eof ) do
  begin
    Writeln( imp, format( ´¬5s´, [ Query1NmRazao.AsString ] ) );
    Query1.Next;
  end;

  Writeln( imp, ´final da impressao´ );

  CloseFile( imp );

end;