ok si es un error, solo se debe poner lo siguiente :
Código Delphi
[-]
procedure TFrmKey.ShowFrmCliente;
begin
if not Assigned(FrmCliente) then
FrmCliente:=TFrmCliente.Create(Application);
FrmCliente.Show;
end;
;
lo hize de memoria, por eso me equivoque, sorry