Aplicacion Multiformulario

[Sudamericano]

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