[old_martinez]

Algo así?

Código Delphi [-]
procedure TfIdentificacion.Button1Click(Sender: TObject);
var 
  idnombre,contrasenia: String;
  NombreUsuario : String;
 
begin

  ADOcomparacion.SQL.Clear;
  idnombre:=LowerCase(fIdentificacion.txtUsuario.Text);
  contrasenia:=fIdentificacion.txtContrasenia.Text;
  ADOcomparacion.SQL.Add('select idnombre, contrasenia from Tusuarios where idnombre='+ quotedStr(idnombre) +' and contrasenia='+quotedStr(contrasenia) );
  
  //ADOcomparacion.Active:=true;
  ADOcomparacion.Open;
 
 if (ADOcomparacion.RecordCount=1) then
  begin
    NombreUsuario:= ADOcomparacion.FieldByName('idNombre').AsString;
    fPrincipal.ShowModal;
    fIdentificacion.Close;
    txtUsuario.Text:= '';
    txtContrasenia.Text:= '';
  end
  Else
  begin
    MsgTitle := 'Acceso Denegado';
    MsgX := 550;
    MsgY := 286;
    Application.MessageBox('Datos Incorrectos', PChar(MsgTitle), MB_ICONSTOP);
    txtUsuario.Text:= '';
    txtContrasenia.Text:= '';
    txtUsuario.SetFocus;
  end
end;