Matris Toplama İşlemi

[d7new]

Daha önceki matris işlemlerine baktım ama bana baya karışık geldi kendim daha basitini yazmaya çalıştım ama belki de çok daha zorlaştırdım, bilemiyorum.
Ben StringGrid kullanarak bu işi yapmaya çalışıyorum, sizce yanlış mıdır? Bunun yerine daha uygun düşen bileşen hangisidir?

Şöyle yaptım(tabi olmadı ama yine de bir şeyler yapmaya çalıştım): 3 tane StringGrid ve 1 tane buton ekledim.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
x,y,sg1,sg2,sg3: integer;
begin
for x:= 0 to 2 do  begin
  for y:=0 to 2 do begin
sg3:= StrToInt(StringGrid1.Cells[x,y])+  StrToInt(StringGrid2.Cells[x,y]);
StringGrid3.Cells[x,y]:= IntToStr(sg3);
end;
end;

Böyle basit bir mantık kurayım dedim ama olmadı.