[SerginhoLD]

Код:

procedure TForm1.BitBtn2Click(Sender: TObject);
var
  i,j,k,n:integer;
  c:double;
begin
  c:=strtofloat(stringgrid1.Cells[0,0]); k:=0; n:=0;
  for i:=0 to  stringgrid1.ColCount-1 do
    for j:=0 to  stringgrid1.rowCount-1 do
      if c>strtofloat(stringgrid1.Cells[i,j]) then
      begin
        c:=strtofloat(stringgrid1.Cells[i,j]);
        k:=i; n:=j;
      end;
  for i:=0 to  stringgrid2.ColCount-1 do
    for j:=0 to  stringgrid2.rowCount-1 do
      if (i=k) or (j=n) then stringgrid2.Cells[i,j]:='0'
      else
      stringgrid2.Cells[i,j]:=stringgrid1.Cells[i,j];
end;