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