Поиск в Excel в конкретном столбце

[Rolls]

Всем привет!
Много информации нашёл по поводу поиска в книге Excel, но так и не нашёл поиска в конкреном столбце..
Вот пример кода, который мне оказался ближе всего к пониманию.
Уважаемые гуру, помогите указать нужные параметры в нужных местах, чтобы поиск производился например в 10ом
столбце, а потом выяснить строку, в которой оказалось искомое значение:

procedure TForm1.Button1Click(Sender: TObject);
var
  Excel, Book, Sheet, tmp: variant;
  FirstAddress: string;
  avt: word;
begin
  Button1.Enabled := false;
  Memo1.Clear;
  Application.ProcessMessages;

  try
    Excel := CreateOleObject('Excel.Application');
    Excel.Application.EnableEvents := false;

    // Сделать нормальный стиль ячеек (A1, C5 и т.д), а не стиль R1C1 (столбы и строки обозначаются цифрами)
    Excel.Application.ReferenceStyle := 0;

    Book := Excel.Workbooks.Open(GetCurrentDir + '\' + 'Книга1.xls');
    Sheet := Book.Sheets[1];

    tmp := Sheet.Cells[1,1];
    tmp := Sheet.Cells.find(What := Edit1.Text, LookIn := xlValues, SearchOrder := xlByRows, SearchDirection := xlNext);
    if (not VarIsClear(tmp)) and (Edit1.Text <> '') then
    begin
      FirstAddress := tmp.Address;
      repeat
        tmp := Sheet.Cells.FindNext(After := tmp);
        Memo1.Lines.Add('Cell[' + IntToStr(tmp.Row) + ':' + IntToStr(tmp.Column) + ']');
//        Memo1.Lines.Add('[' + StringReplace(Copy(tmp.Address, 2, length(tmp.Address)), '$', ':', []) + ']'); // Чтобы адрес Ячейки выводился как [A:1] [C:4] и т.д.
      until FirstAddress = tmp.Address;
    end
    else
      Memo1.Lines.Add('Не найдено')

  finally
    Excel.Quit;
    Excel := Unassigned;
    tmp := Unassigned;
    Button1.Enabled := true;
  end;
end; // Button1Click

[Rolls]

Разобрался сам, всё гораздо проще, чем кажется.
Для тех, кому нужен поиск по столбцу, вот пример кода поиска одного значения (в моём случае значения в одном столбце не могут повторяться) по 10му столбцу, если бы я нашёл такой пример, сэкономил бы кучу времени.

var Code : string; //--- Искомое значение
...
tmp := Excel.Sheets[1].Columns[10].Find(What := Code, LookIn := xlValues, SearchOrder := xlByColumns, SearchDirection := xlNext);

ВСЁ!!! одна строчка! Отсюда мы можем вычислить координаты найденой ячейки:

tmp.Row
tmp.Column

Если же в столбце может быть несколько одинаковых искомых хначений, то вписываем эту строчку в цикл, как в примере выше:

tmp := Excel.Sheets[1].Columns[10].Find(What := Code, LookIn := xlValues, SearchOrder := xlByColumns, SearchDirection := xlNext);
    if (not VarIsClear(tmp)) and (Code <> '') then
    begin
      FirstAddress := tmp.Address;
      repeat
        tmp := Excel.Sheets[1].Columns[10].FindNext(After := tmp);
        Memo1.Lines.Add('Cell[' + IntToStr(tmp.Row) + ':' + IntToStr(tmp.Column) + ']');
      until FirstAddress = tmp.Address;
    end
    else
      Memo1.Lines.Add('Не найдено')

Всем удачного программирования!