[Alegun]

Сообщение от bleex

запускаю с кнопки...

Код:

Timer2.Enabled:= true;

А вот это будет работать? (не могу проверить, делфи нет)

Код:

procedure TForm5.Timer2Timer(Sender: TObject);
var
 с: integer;
begin
 Timer2.Enabled:= false;
 с:= 0;
 if find.Checked then
  begin
   k:= StrToInt(Edit1.Text);
   for i := 1 to m do
    begin
     lbl1[i].Color:= clYellow;
     application.ProcessMessages;
     Sleep(100);
     if lbl1[i].Height = k then
      begin
       lbl1[i].Color:= clGreen;
       lbl2[i].Font.Color:= clGreen;
       Inc(с);
       application.ProcessMessages;
       Sleep(100);
        if (i=m) and (с>0) then
         begin
          ShowMessage(inttostr(с));
          Exit;
         end;
        if (i=m) and (с=0) then
         begin
          ShowMessage('Закончено');
          Exit;
         end;
      end else
           begin
            lbl1[i].Color:= clRed;
            application.ProcessMessages;
            Sleep(100);
            if (i=m) and (с>0) then
             begin
              ShowMessage('Закончено');
              Exit;
             end;
            if (i=m) and (с=0) then
             begin
              ShowMessage('Таких элементов не найдено');
              Exit;
             end;
           end;
    end; {for}
  end;{find.checked}

   Timer2.Enabled:= true;
end;