Writeln - Demora a imprimir

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

begin

AssignFile( f, ´lpt1´ );
Rewrite( f );
Writeln( f, ´Escreve aqui´ );
CloseFile( f );

end;

Estou usando este código quando eu compilo e mando executar demora um pouco a começar a imprimir .. assim coisa de 20 segundos e só depois começa .... Estou usando delphi 7 e windows xp

Alguem pode me dar alguma dica


valewwwww