No sé qué BD estás utilizando.
Pero no será que se te está escapando este detallito ??
Código Delphi
[-]with DMUsuarios.QGen do begin
Close;
Sentence := 'Select * from usuarios_sistema where usuario=' + DMMain.RXEntornoUsuario.AsString;
SelectSQL.Text := Sentence;
Open;
end;
Al menos en Interbase y Firebird.