Iba a ponerlo anteriormente, pero al final se me escapó.
También deberías probar con esto :
Código Delphi
[-]with DMUsuarios.QGen do begin
Close;
Sentence := 'Select * from usuarios_sistema where usuario=' + QuotedStr(DMMain.RXEntornoUsuario.AsString);
SQL.Text := Sentence;
Open;
end;