Возможен ли такой запрос?

DM.Temp.SQL.Add('SELECT *');
DM.Temp.SQL.Add('FROM tblSortSpr');
DM.Temp.SQL.Add('WHERE Section_ID IN (SELECT SectionName FROM tblSectionSpr WHERE Key = ' +
#39 + cbSection.Text + #39')=:Key');

var i: integer;
begin
DM.QSectionSpr.Active := False;
DM.QSectionSpr.SQL.Clear;
DM.QSectionSpr.SQL.Add('SELECT *');
DM.QSectionSpr.SQL.Add('FROM tblSectionSpr');
DM.QSectionSpr.SQL.Add('ORDER BY SectionName');
DM.QSectionSpr.Active := True;
 cbSection.Clear;
 For i:=1 to DM.QSectionSpr.RecordCount do
   begin
    cbSection.Items.Add(DM.QSectionSpr['SectionName']);
   DM.QSectionSpr.Next;
   end;
end;

var i: integer;
begin
DM.Temp.Active := False;
DM.Temp.SQL.Clear;
DM.Temp.SQL.Add('SELECT *');
DM.Temp.SQL.Add('FROM tblSortSpr');
DM.Temp.SQL.Add('WHERE Section_ID IN (SELECT Key FROM tblSectionSpr WHERE SectionName = ' +
#39 + cbSection.Text + #39')');
DM.Temp.SQL.Add('ORDER BY SortName');
DM.Temp.Active := True;
 cbSort.Clear;
 For i:=1 to DM.Temp.RecordCount do
   begin
    cbSort.Items.Add(DM.Temp['SortName']);
    DM.Temp.Next;
   end;
end;

 DM.QSortSpr.Locate('SortName',cbSort.Text,[loCaseInsensitive]);
 sorttmp := DM.QSortSpr['Key'];

procedure TfmAddDetailSpr.btnSaveClick(Sender: TObject);
begin
 DM.QDetailSpr['Section_ID'] := sectmp;
 DM.QDetailSpr['Sort_ID'] := sorttmp;
 DM.QDetailSpr['ObosnachName'] := editObosnach.Text;
 DM.QDetailSpr.Post;
 Close;
end;