Решение задачи с созданием таблиц в делфи

// TADOQuery - команда SQL
// TDataSource - результат запроса
// Короче 
ADOQuery1.Connection := ADOConnection1;
DataSource1.DataSet := ADOQuery1;
 
// Отправка запроса к серверу
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM CourseTable');
 
// Получаем данных в DataSource
DataSource1.DataSet.Close;
DataSource1.DataSet.Open;
DataSource1.DataSet.First;
 
// Заполняем этими данными в StringGrid
while not DataSource1.DataSet.Eof do begin
    StringGrid1.Cells[0, i] := DataSource1.DataSet.FieldByName('No').AsInteger;
    StringGrid1.Cells[1, i] := DataSource1.DataSet.FieldByName('Name').AsString;
    StringGrid1.RowCount := StringGrid1.RowCount + 1;
end;
if StringGrid1.RowCount > 1 then begin
    StringGrid1.RowCount := StringGrid1.RowCount - 1;
end;
 
// Добавления данных в ComboBox
while not DataSource1.DataSet.Eof do begin
    // В ComboBox добавляешь 1: Строку 2: Объект то есть первичный код таблицы по этому коду будешь узнавать что пользователь выбрал
    ComboBox.Items.AddObject('Данные которые будут отображатся в ComboBox', (TObject)DataSource1.DataSet.FieldByName('ID').AsInteger);
end;
 
 
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
    // Код который пользователь выбрал
    id := (Integer)ComboBox.Items.Objects[ComboBox.ItemIndex];
end;
 
// Затем делаешь фильтрацию
DataSource1.Filtered := false;
DataSource1.Filter := 'No = ' + id; // это id ComboBox 
DataSource1.Filtered := true;
 
DataSource1.DataSet.First;
while not DataSource1.DataSet.Eof do begin
   ...