Помогите со TStringGrid

[Sanprof]

Здраствуйте!
Вот у меня возникла такая проблама с TStringGrid, у меня есть массив данных:
например

1020
780
306
652
458
...
...
345 (количество данных в массиве может меняться)

Таперь вопрос! Мне нужно сделать таблицу с помощью TStringGrid в таком виде

RR1 |1020| мс
RR2 |780 | мс
RR3 |306 | мс
RR4 |652 | мс
RR5 |458 | мс
...
...
RRn |345 | мс

И если значение массива превышает 1000 окрашивать это значение в красный цвет, а если меньше 400 - в синий!

[Gauss]

А что там сложного, задать цикл (для колонок и для рядов) , затем нужно и помесить с помощью цикла туда все значения. А потом условие через иф >=1000 , тогда окрашиваем тото.
Покажите ваш код, я попытаюсь поправить.

[Sanprof]

mem: array of double;
i:integer;

with stringgrid1.Canvas do
begin
if mem[arow] > 1000 then
font.Color := clRed else
if mem[arow] < 400 then
font.Color := clBlue else
font.Color := clGreen;
for i:=0 to num-1 do begin
StringGrid1.Canvas.FillRect(Rect);
StringGrid1.Canvas.TextOut(Rect.Lef t, Rect.Top, floattostr(mem[ARow]));
end;
end;

У меня значения из массива mem заполняют все колонки!

[Sanprof]

Сделал так

for i:=0 to num-1 do begin
StringGrid1.Cells[0,i]:='RR'+inttostr(i+1);
StringGrid1.Cells[2,i]:='мс';
StringGrid1.Cells[1,i]:=' '+floattostr(mem[i]);
end;
if mem[arow] > 1000 then
stringgrid1.Font.Color := clRed else
if mem[arow] < 400 then
stringgrid1.font.Color := clBlue else
stringgrid1.font.Color := clGreen;

все будто пашит, но программа из цикла не выходит!