Закрасить ячейки в строках StringGrid в потоках

[fredwriter]

Никак не могу разобраться с OnDrawCell, в потоках у меня вычисляется какую ячейку нужно закрасить, потоки запускаются по нажатии на кнопку "поиск", перед тем как нажать на кнопку "поиск" я должен ввести в одно поле эдит размер массива, нажать на кнопку "Вывод случайного массива", после нажатия на эту кнопку четыре строки StringGrid заполняются числами, в каждой строке один и тот же массив, затем нужно ввести во второе поле эдит элемент, который нужно найти, и нажать на кнопку поиск. После нажатия на кнопку поиск запускаются потоки, каждый из которых по своему алгоритму поиска дает номер ячейки, которую нужно закрасить в OnDrawCell, первый поток вычисляет номер ячейи в первой строке, второй во второй строке и т.д. Я попробовал сделать это с одним потоком, хотя бы, но при открытии формы сразу запускается OnDrawCell, и не даёт ничего сделать.
Вот частичный код бреда, который я написал. Процедура потока, процедура OnDrawCell и процедура кнопки "поиск".

procedure Line_Find_Thread.Execute;
begin
  i_p := 1;
  Key_f2 := StrToInt(Form2.Edit2.Text);
  while (i_p <= n_f2) and (Mass_f2[i_p] <> Key_f2) do
  begin
    Inc(i_p);
    Sleep(100);
  end;
end;


procedure TForm2.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if i_p <> 0 then
    if (ARow = i_p) and (ACol = 0) then
      with TStringGrid(Sender), Canvas do
      begin
        Brush.Color := clRed;
        FillRect(Rect);
        TextRect(Rect, Rect.Left, Rect.Top, Cells[aCol, aRow]);
      end;
end;

 
procedure TForm2.Button1Click(Sender: TObject);
begin
 // QuickSort(C_Mass_f2, n_f2);
  //QuickSort(D_Mass_f2, n_f2);
  Line_Find_Thread.Create(False);
  //QLine_Find_Thread.Create(False);
 // Dixot_Find_Thread.Create(False);
  //Interpol_Find_Thread.Create(False);
end;

Это лишнее не понял как создалось два ответа сразу

[mutabor]

DrawCell срабатывает при перерисовке. Она может происходить автоматически, также можно вызывать ее самому. Автоматически это происходит или при перекрытии окна, или при старте программы, или при разворачивании. Ты не можешь это отменить. Но ты можешь управлять косвенно, условиями внутри обработчика DrawCell. И если условие ложное, сколько бы перерисовок не происходило, ничего ненужного не нарисуется.

Найди пример по обработке перерисовки TStringGrid или TDrawGrid (они по сути почти одинаковы), примеров валом в сети. В том же DelphiWorld или в DRKB посмотри.

[fredwriter]

Спасибо, mutabor, буду искать