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;