[Julià T.]

por cierto al puslar la tecla esc se finaliza todo el código tipo

tecla=esc =>
begin
Close;
exit;
end;

o bien queda algo colcago por finalizar

tecla=esc =>
begin
Close;
end;
.... continua el código