[bleex]

Мне нужно сделать визуализацию, но ее нет, т.к. все закрашевается только после того как цикл отработает. как сделать что бы было видно изменения по одному элементу? а не после отработки цикла..

Код:

procedure TForm5.Timer2Timer(Sender: TObject);
var
  a: integer;
begin
  if find.checked=true then
    begin
      k:= strtoint(edit1.Text);
      for i:= 1 to m do
        begin
          lbl1[i].Color:= clYellow;
          if lbl1[i].height=k then
            begin
              lbl1[i].Color:= clGreen;
              lbl2[i].Font.Color:= clGreen;
              //showmessage('find ', k);
              //exit
            end
          else
              lbl1[i].Color:= clRed;
              //exit;
              //i:= i+1;
            end;
    end;