опять StringGrid

[belyjj]

вот код

procedure TForm1.FormActivate(Sender: TObject);
  var
    i:Integer;
begin
  p1:=0;p2:=0;
  for i:=1 to 10 do StringGrid1.Cells[i-1,0]:=IntToStr(Random(10));
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  If (ACol > p1) and (Acol<p2) then
 begin
  Brush.Color:=clRed;
  StringGrid1.canvas.fillRect(Rect);
  StringGrid1.canvas.TextOut(Rect.Left+2,Rect.Top+3,StringGrid1.Cells[ACol,ARow]);
 end;
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  n:Integer;
begin
 //n:=0;
  while StringGrid1.Cells[n,0]<StringGrid1.Cells[n+1,0] do n:=n+1;
  p2:=n;
  StringGrid1.Repaint;
  p1:=n;
end;

мне нужно при нажатие на кнопку выделить упорядоченую последовательность ячеек, те в массиве 0 0 8 3 1 4, выделим сначало 0 0 8 , потом 3 , и потом 1 4

[evg_m]

n:=0;
while StringGrid1.Cells[n,0]<StringGrid1.Cells[n+1,0] do begin
n:=n+1;
  p2:=n;
  StringGrid1.Repaint;
application.ProcessMessage;
sleep(1000);
  p1:=n;
end;

либо n должна быть глобальной переменной (как p1, p2)
убрать объявление
procedure TForm1.btn1Click(Sender: TObject);
var
n:Integer;
begin
и задать начальное значение n:=0 в formactivate

[belyjj]

Спасибо за помощь всем! Я почти реализовал свой проект, осталось русский язык отредактировать. Можете закрыть мои темы.