добавление из DBGrid в PickList

[Opiym]

Здравствуйте, появилась проблема, нуждаюсь в вашей помощи!!!
Необходимо при добавлении записи в колонку, чтобы это запись добавлялась в пиклист не только этой таблицы, но и в другие, например есть таблица Поставщики в ней есть колонка Поставщик, добавляю туда нового поставщика, и этот поставщик должен добавиться в пиклист таблицы МатеринскиеПлаты в колонку поставщик (в выподающий список)... Может сильно замудрил, задавайте вопросы...

procedure PopulatePickList(Column:TColumn;ADOTable:TADOTable;FieldName:string);
var
   QryTemp: TQuery;
   i: integer;
begin
   Column.PickList.Clear;
   QryTemp := TQuery.Create(nil);
   with QryTemp do
   begin
     SQL.Clear;
     SQL.Add('SELECT DISTINCT '+FieldName+' from '+ADOTable.TableName);
   end;
 
   with QryTemp do
   begin
     ADOTable.Active := True;
     ADOTable.First;
     for i := 0 to QryTemp.RecordCount - 1 do
     begin
       if FieldByName(FieldName).AsString <> '' then
          Column.PickList.Add(FieldByName(FieldName).AsString);
       ADOTable.Next;
     end;
     ADOTable.Active := False;
   end;
   QryTemp.Free;
end;
 
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
PopulatePickList(DBGrid1.Columns[1],ADOTable2,'МатеринскиеПлаты');
end;

Программа!
1.RAR
ОРИГИНАЛЬНЫЙ КОД!

procedure PopulatePickList(Column:TColumn;Table:TTable;FieldName:string); 
var 
   QryTemp: TQuery; 
   i: integer; 
begin 
   Column.PickList.Clear; 
   QryTemp := TQuery.Create(nil); 
   with QryTemp do 
   begin 
     DatabaseName := Table.DatabaseName; 
     SQL.Clear; 
     SQL.Add('SELECT DISTINCT '+FieldName+' from '+Table.TableName); 
   end; 

   with QryTemp do 
   begin 
     Active := True; 
     First; 
     for i := 0 to QryTemp.RecordCount - 1 do 
     begin 
       if FieldByName(FieldName).AsString <> '' then 
         Column.PickList.Add(FieldByName(FieldName).AsString); 
       Next; 
     end; 
     Active := False; 
   end; 
   QryTemp.Free; 
end; 

procedure TForm1.DataSourceDataChange(Sender: TObject; Field: TField); 
begin 
PopulatePickList(DBGrid.Columns[2],Table,'Field'); 
//замените таблицу Вашим tableName сетки 
//DBGrid.Columns[2] с Вашим DBGrid Column, который Вы хотите PickList для 
//Field с полем для PickList 
end;