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

[b:ab4e5d5a7f][color=red:ab4e5d5a7f]Título editado pelo Moderador (AZ) - Removido: ´:: Por favor HELP ME´[/color:ab4e5d5a7f][/b:ab4e5d5a7f]