ОТЧЕТ (SQL) - данные из связанной таблицы, подскажите по скрипту.

procedure frmDeviceBase_bSQLReport_OnClick (Sender: TObject; var Cancel: boolean);
var
    i,c: integer;
    s: string;
begin                                                                  
    s := '';
    frmDeviceBase.bSQLReport.dbSQL := 'SELECT clientName, numberRMA, serialdevice, serialcomponent, DeviceFullName FROM devicebase';
    c := frmDeviceBase.GridDevice.RowCount-1;

    for i := 0 to c do
    begin
        if frmDeviceBase.GridDevice.Selected[i] then s := s + 'devicebase.id='+IntToStr(frmDeviceBase.GridDevice.dbIndexToID(i)) + ' OR ';
    end;

    if s <> '' then
    begin
        SetLength(s, Length(s)-4);
        frmDeviceBase.bSQLReport.dbSQL := frmDeviceBase.bSQLReport.dbSQL + ' WHERE ' + s;
    end;
end;