Ayunda con impresión directa

[[ElDioni]]

Código Delphi [-]
procedure TFormGesCli.BtnImprimirClick(Sender: TObject);
var
Fichero:TextFile;
begin
printer.Canvas.font.Size:=10;
AssignPrn(Fichero);
Rewrite(Fichero);
Writeln(Fichero,'');
Writeln(Fichero,'');
write(Fichero,'CLAVE:      ');
Writeln(Fichero,Txtamigo.text);
write(Fichero,'CODIGO:     ');
writeln(Fichero,txtcliente.text);
Write(Fichero,'NOMBRE:     ');
Writeln(Fichero,TxtNombre.text);
Write(Fichero,'DNI o CIF:  ');
writeln(Fichero,txtdni.text);
write(Fichero,'COMERCIAL:  ');
Writeln(Fichero,Txtcomercial.text);
Write(Fichero,'CONTACTO:   ');
Writeln(Fichero,txtcontacto.text);
Write(Fichero,'DIRECCION:  ');
Writeln(Fichero,txtdirecc.text);
Write(Fichero,'C.P:        ');
Writeln(Fichero,txtcp.text);
CloseFile(Fichero);
end;