Поиск в Stringgrid

[Putin-mode]

Добрый вечер! Помогите пожалуйста доработать функцию поиска в Stringgrid. Делаю электронную версию телефонного журнала для воинской части.
Исходник http://rghost.ru/43106610

Таких Stringgrid будет много но это потом.
Мне как бы необходимо чтоб по нажатию на кнопку функция искала циклом введенное в edit слово или число по всем строкам и колонкам (или только по 3 на пример и 10, но это в будущем реализация)
При нахождении этого слова и числа необходимо чтоб это значение записывалось в лейбл потом дальше происходил поиск без нажатия кнопки и снова значение плюсуется в лейбл, и так по всем(а пока только по одной) таблицам.
И еще бы было замечательно если бы поиск был регистронезависимым и еще вопросик, как потом эту рекурсию переместить на следующие таблицы.

Вот код поиска для удобства

procedure TForm1.Button1Click(Sender: TObject);
var
      SearchColumn, i: Integer;
begin
   for SearchColumn := 1 to StringGrid1.ColCount - 1 do begin
      for i := 1 to StringGrid1.RowCount - 1 do begin
          if Pos(Edit1.Text, Form1.StringGrid1.Rows[i].Strings[SearchColumn]) > 0 then begin
             StringGrid1.Col := SearchColumn;
             StringGrid1.Row := i ;
             Break ;
          end ;
      end ;
   end ;   
   //Edit1.Clear;
   //Edit1.SetFocus ;

   end;

end.

Заранее всем спасибо!

Или хотя бы подскажите как организовать поиск сначала в первом стрингриде потом во втором и так далее.

[Stilet]

procedure Sreach(Grid:TStringGrid);
var
      i: Integer; s:String;
begin
s:=AnsiLowerCase(Edit1.Text);
with Grid do 
   for i := 1 to RowCount - 1 do begin
          if Pos(s, AnsiLowerCase(Rows[i].Text) > 0 then begin
             Label1.Caption:=Label1.Caption+' '+s;
          end ;
   end ;   
end.

и так по всем(а пока только по одной) таблицам.

for i:=0 to ComponentsCount-1 do
 if Component[i] is TStringGrid then Sreach(TStringGrid(Component[i]));

Такая схема подходит?

[Putin-mode]

Я думаю да, щас придется вспомнить как этот код прочитать правильно и под себя догнать, сложно для меня щас потому что уже месяцев 5 учу PHP и от дельфы пока отошел но вот пришлось вернуться! )))
Спасибо! Надеюсь доделаю этот код.