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;