Intenta con esto, vi algunos detalles que no estaban bien codificados.
procedure TForm1.Button1Click(Sender: TObject); //NO necesitas poner VAR para cada variable var user,pass,nombre,query: string; iuser : Integer; begin if ComboBox1.Text = 'Usuario' then Application.MessageBox(pchar('' +#13#10+ 'Selecciona' +#13#10+ 'un usuario'), pchar(' Error '),0+16+0+4096) else if Edit1.Text = 'Contraseña' then Application.MessageBox(pchar( ''+#13#10+ 'Por favor ingresa'+#13#10+ ' Tu password'), pchar(' Error '),0+32+0+4096) //Necesitas encerrar todo el bloque de código involucrado else begin user := ComboBox1.Text ; pass := Edit1.text ; query := 'SELECT nombre,id_usuario FROM usuario '+ 'WHERE usuario.usuario = '+ QuotedStr(user)+ ' and usuario.password = '+ QuotedStr(pass); AdoQuery1.SQL.Text:=query; AdoQuery1.Open; //En lugar de Active := True //NO necesitas recorrer el dataset con while not..... if ADOQuery.RecordCount > 0 then begin nombre := AdoQuery1.Fields[0].Text; Application.MessageBox(pchar( ''+#13#10+ ' Bienvenido '+#13#10+ nombre), pchar('Grupo Empresarial Suma'), 0+0+0); end; AdoQuery1.Close; //En lugar de Active := False end; end;
Salud OS