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

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;

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;

procedure PopulatePickList(Grid:TDBGrid; FldName:string); 
var 
   QryTemp: TQuery; 
   ACol: TColumn;
   i: integer; 
begin 
   // Найти колонку соотв-ю полю
   ACol  := nil;
   for i := 0 to TDBGrid.Columns.Count-1 do
      if (ACol=nil) and (Grid.Columns[i].FieldName=FldName) then
          ACol := Grid.Columns[i];
   if (ACol=nil) or (ACol.PickList=nil) then exit; // Колнки с указ.поле нет в сетке или она не эллипс-типа
   ACol.PickList.Clear;
   Screen.Cursor := crSQLWait;
   with TADOQuery.Create(nil) do
     try
       Connection := TADOTable(Grid.DataSource.DataSet).Connection;
       SQL.Text := 'SELECT DISTINCT '+FldName+' from '+TADOTable(Grid.DataSource.DataSet).TableName); 
       Open;
       while not Eof do
          begin
           if FieldByName(FldName).AsString <> '' then 
              ACol.PickList.Add(FieldByName(FldName).AsString); 
           Next; 
          end;
        Close;
     finally
        Free;
     end; 
end; 
 
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
// Этот универсальный обработчик назначить тем полям, по которым надо пикап-списки
begin
   PopulatePickList(DBGrid1,Field);
end;

procedure TForm1.DataSource2DataChange(Sender: TObject; Field: TField);
begin
Form5.ADOQuery1.FindFirst;
 if not Form5.AdoQuery1.IsEmpty then
 repeat
 Form5.DBGrid1.Columns[3].PickList.add(Form1.ADOQuery1.Fields[3].asString);
 Application.ProcessMessages;
 until not Form5.ADOQuery1.FindNext;
 end;