¿Como saber el nombre de la variable de un form?

[kjlin]

Hola, prueba esto:

Código Delphi [-]
procedure TfPrincipal.bClientesFormClick(Sender: TObject);
var
   i:Integer;
   Existe:Boolean;
begin
   i:=0;
   Existe:=false;
   while not Existe and (ido
      if Application.Components[i] is TfClientesForm then
         Existe:=true
      else
         Inc(i);
   if not Existe then
      with TfClientesForm.Create(Application) do
         Show
   else
      TForm(Application.Components[i]).Show;
end;

procedure TfBrowseForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   Action:=caFree;
end;

kjlin.