Поиск по первому столбцу в Delphi

[Xeon332]

компонент Stringgrid имеет 5 столбцов. Надо организовать поиск по первому столбцу, и впринципе процедура не такая и сложная. вот что получилось:

procedure TForm3.Button1Click(Sender: TObject);
var
  I: Integer;
 GRect: TGridRect;
 begin
  for i := 1 to Str-1 do
    if Edit1.Text=Form1.StringGrid1.Cells[0,i] then
     begin
      GRect.Left:=0;
      GRect.Top:=i;
      GRect.Right:=1;
      GRect.Bottom=i;
      Form1.StringGrid1.Selection:=GRect;
      Form1.StringGrid1.LeftCol:=0;
      Form1.StringGrid1.TopRow:=i;
     end;
close;
end;

вроде как всё просто, данные считываются с Edit1 и потом просматриваются на совпадении в условии...
НО! Он не работает, а выделяет красным цветом строку в коде GRect.Bottom=i; и не компилирует... посмотрите, где ошибка то тут?

[slips]

GRect.Bottom=i; эм.. ну тут спать пора идти наверное GRect.Bottom:=i;
двоеточие пропустили...

[Xeon332]

GRect.Bottom=i; эм.. ну тут спать пора идти наверное GRect.Bottom:=i;
двоеточие пропустили...

оофигеть!!! и вправду спать надо идти!... но всё ж блин не хочет искать по такому коду.... уже запарился в монитор пялится... не получается как следует этот поиск...