Как определить номер колонки по ее имени?

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
   i,c, index: integer;
   ColumnName: string;
begin
   index := -1; // -1 если не найдено
   ColumnName := 'First Name'; // ищем данное имя колонки

   // перебор колонк в цикле с проверкой их имени
   c := Form1.TableGrid1.Columns.Count - 1;
   for i := 0 to c do
   begin
        if Form1.TableGrid1.Columns[i].Header.Caption = ColumnName then // если найдено
        begin
             index := i; // в переменной index будет хранится номер колонки
             break;
        end;
   end;

   ShowMessage(IntToStr(index)); // вывод результата
end;