[lmikle]

Код:

procedure TForm1.ComboBoxChange(...);
begin
  Case ComboBox1.ItemIndex Of
    0 : DBGrid1.DataSource := DataSource1;
    1 : DBGrid1.DataSource := DataSource2;
    ...
   end;
end;