Закрашивание max и min элемента в String grid

[Джек12]

Помогите пожалуйста,нужно выделить max и min элементы разными цветами в таблице.. с помощью процедуры DrawCell.
Вот у меня есть задача,которая находит max,min элемент.
вот только как сделать так,чтоб они закрашивались.

procedure TForm1.btn1Click(Sender: TObject);
var i, j: integer;
begin
randomize;
for i:=0 to 9 do
for j:=0 to 9 do
    SG1.Cells[i, j] := IntToStr(random(100));
//StringGrid1.Cells[2,9] := '0';
end;

procedure TForm1.btn2Click(Sender: TObject);
var n,m,i,j,max: integer;
begin
 max:=StrToInt(SG1.Cells[0,0]);
 for i:=0 to 9 do
 for j:=0 to 9 do
 if StrToInt(SG1.Cells[i,j])>max
 then
 begin
 max:=StrToInt(SG1.Cells[i,j]);
 m:=i;
 n:=j;

 Lbl1.Caption:=IntToStr(max);
 Lbl2.Caption:= IntToStr (m+1) +  '  ñòîëáåö  ' + IntToStr (n+1) + '  ñòîêà  ';
end;
end;

procedure TForm1.btn3Click(Sender: TObject);
var m,n,i,j,min: integer;
begin
  min:=StrToInt(SG1.Cells[0,0]);
 for i:=0 to 9 do
 for j:=0 to 9 do
 if StrToInt(SG1.Cells[i,j])<min
 then
 begin
 min:=StrToInt(SG1.Cells[i,j]);
 m:=i;
 n:=j;

 Lbl3.Caption:=IntToStr(min);
 Lbl4.Caption:= IntToStr (m+1) +  '  столбец  ' + IntToStr (n+1) + '  строка ';
end;
end;


end.

[min@y™]

Лет 100500 назад я писал пример на подобную тему. Могу подарить.