[_taddy]

Попробуй исправить эти функции так:

Код:

procedure TfMain.btn1Click(Sender: TObject);
begin
   m:= strtoint(e1.Text);
   n:=strtoint(e2.text);
   Stringgrid1.colcount := m;
   stringgrid1.rowcount := n;
end;

procedure TfMain.btn3Click(Sender: TObject);
var i, j : integer;
begin
  min := 130; // Чтобы при повторной прорисовке не выбирался минимальный
  for i:= 0 to m-1 do
    for j:= 0 to n-1 do
      stringgrid1.cells[i,j] := inttostr(-127+random(255));
end;

procedure TfMain.btn4Click(Sender: TObject);
var i, j, k, l : integer;
    a : array[1..10] of integer;
begin
  min := 130;
  for i := 0 to m-1 do
    for j := 0 to n - 1 do
      if (0 < strtoint(stringgrid1.cells[i,j])) and (strtoint(stringgrid1.cells[i,j]) < min) then
          min := strtoint(stringgrid1.cells[i,j]);
  StringGrid1.Repaint;
end;

Админ: Пользуемся тегами для оформления кода, иначе последуют санкции!