if ventana = 'Clientes' then
begin
if FrmCliente = nil then
begin
FrmCliente := TfrmCliente.create(FrmCliente);
Try
FrmCliente.Parent := FrmPrincipal.Panel4;
FrmCliente.Caption := 'Clientes';
dmacceso.cdsClientes.Active := True;
dmacceso.cdsClientes.Last;
dmacceso.cdsClientes.Insert;
FrmCliente.Show;
finally
If FrmCliente.Caption <> ' ' then
Begin
FrmPrincipal.TabSet1.Tabs.add(FrmCliente.Caption);
FrmPrincipal.TabSet1.TabIndex := FrmPrincipal.TabSet1.Tabs.Count - 1;
end;
end;
end
end;