for i:=1 to x do
  for j:=i to x do
   if StrToIntDef(form1.StringGrid1.Cells[j,i],-1)>0 then
    begin
        n:=n+1;
        m[n,1]:=StrToInt(form1.StringGrid1.Cells[0,i]);
        m[n,2]:=StrToInt(form1.StringGrid1.Cells[j,0]);
        m[n,3]:=StrToIntDef(form1.StringGrid1.Cells[j,i],-1);
    end;