[kiozo]

Empezado por Master23

podrías darme un ejemplo por favor.

mira mi forma principal se llama TFAcceso que es el login del usuario cuando hago el locate..!

si es verdadero entro a la forma menu y libero mi forma principal que es tfacceso.

Código Delphi [-]
procedure TFAcceso.BitBtn1Click(Sender: TObject);
begin

 Modulo.TUsuario.open;
if (Edit1.Text<>'')then
  begin
    if Modulo.TUsuario.Locate('usuario;contraseña', VarArrayOf([Edit1.Text, Edit2.Text]), []) then
      begin
        Application.CreateForm(TFMenu,FMenu);
        FMenu.Show;
        facceso.Free;
      end
    else
  begin
        ShowMessage('Usuario y/o Contraseña Incorrecta');
        Edit1.setFocus;
        Edit2.Clear;
        end;
        Modulo.TUsuario.close;
        end;
end;