Para @@@@@ Aroldo Zanela @@@@@@

procedure TForm1.Button1Click(Sender: TObject);
var Relatorio: TStringList;
nI, nZ: Integer;
    SaidaLPT: TextFile;
begin
Relatorio:= TStringList.Create;
  Relatorio.LoadFromFile(´C:\Previsao\Relatorio.Txt´);
  nZ := Relatorio.Count;

  AssignPrn(SaidaLPT);
ReWrite(SaidaLPT);

  for nI := 0 to nZ-1 do
  begin
WriteLn(SaidaLPT, Relatorio.Strings[nI] );
  end;
  CloseFile(SaidaLPT);
end;