codigo roman = 4 lineas
Código Delphi
[-]
if not Assigned(FrmCliente) then FrmCliente := TfrmCliente.Create(Application)else FrmCliente.Show;
Mi codigo = 3 lineas
Código Delphi
[-]
if not Assigned(FrmCliente) then FrmCliente := TfrmCliente.Create(Application) FrmCliente.Show;
ambos codigos son equivalentes