[Freddy Silva]

procedure TForm1.Button1Click(Sender: TObject);
var
  iImpresora : TextFile;
begin
  Assignfile(iImpresora,'Com1'); //Puerto: LPT1, COM1, etc;
  Rewrite(iImpresora);
  Writeln(iImpresora,'Esto debe salir por la impresora.');
  CloseFile(iImpresora);
end;

lo tomé de un hilo viejo