Связать 2 таблицы AdvStringGrid компанента TMS Component Pack

[Polotenchik]

Добрый день! Помогите пожалуйста, ведь наверняка у многих этот компонент установлен. Задача следующая:

На форуме AdvStringGrid1 и AdvStringGrid2

В AdvStringGrid2 ну скажем 3 столбца и забиты некие данные. Например:

Имена Возраст Должность
Света 25 адвокат
Саша 30 программист
Катя 18 курьер

и т.д.

В AdvStringGrid1 пусть тоже будет 3 столбца с этими же названиями, но мне теперь надо сделать, чтобы в AdvStringGrid1 в первом столбце (Имена) был выпадающий список выбора всех имен, что находятся в AdvStringGrid2 в первом столбце. И в зависимости от выбора имени заполнялись остальные столбцы AdvStringGrid1 в соответствии с данными AdvStringGrid2. Ну т.е выбрал я из списка имя Саша и у меня в AdvStringGrid1 автоматом во втором поле появилась цифра 30, а в 3-ем программист. Потом во второй строке выбрал имя Катя и автоматом во второй колонке второй строки вывелось 18, а в 3-й колонки 20ой строки курьер ну и т.д.

Очень прошу не пинайте сильно. Выручите пожалуйста!

[Polotenchik]

Люди добрые, все сделал, но есть вопросик. Помогите пожалуйста.

И так проясню еще раз ситуацию: на форме два grid. задача - в строках нулевого столбца первого грида сделать выпадающий список с данными из первого столбца второго грида. Это я сделал:

procedure TForm1.Grid1GetEditorType(Sender: TObject; ACol, ARow: Integer;
  var AEditor: TEditorType);
begin
  with grid1 do //делаем для 1-го грида
  case Acol of //делаем для столбца
  0:begin //делаем именно для 0-го столбца
      aEditor := edComboList; //создаем список
      ClearComboString; //чистим его
      ComboBox.Items.AddStrings(grid2.Cols[1]); //пихаем в него содержимое 1-го столбца 20го грида
    end;
  end;
end;

Все супер, но в список так же попал и заголовок 1-го столбца 2-го грида и чистые поля (незаполненные).

Как мне запихнуть в список данные для 1-го столбца 2-го грида начиная с 1-ой строки (так, как 0 - ая строка это и есть заголовок) да еще и отбросить нижние пустые строки?

Надеюсь ясно пояснил проблему. Спасибо заранее. Жду помощи...

[Polotenchik]

А так же у меня вопрос: как сделать такую проверку:

if grid.cells[1,1]='Упс' then
grid.cells[1,1]:='';

т.е чтобы ячейка саму себя проверяла при выбери из списка.

[Polotenchik]

Думаю, что вопрос вот вот отпадет! Начинаю одупляться...