const n=5;

procedure TForm1.Button1Click(Sender: TObject);

var Mas:array[0..n] of Integer;

    i:Integer;

    nomer:Integer;

begin

for i:=0 to n do                   //Заносим значения в массив

    Mas[i]:=StrToInt(StringGrid1.Cells[i,0]);

nomer:=0;

for i:=0 to n do

 if (mas[i]>Mas[nomer]) then         //Проверка

    nomer:=i;

Mas[nomer]:=0;

for i:=0 to n do

    StringGrid1.Cells[i,0]:= IntToStr(Mas[i]);

end;