[Budda]

Здравствуйте уважаемые форумчане!
У меня есть такая задача, на форме 2 едитки(в них вводится размерность матрицы и она создается при нажатии на баттон1), матрица создается в stringgrid1(первая матрица) и аналогично через другие две едитки(при нажатии на баттон2) создается вторая матрица в stringgrid2. Между матрицами стоит RadioGroup1 и в них выбирается действия которое необходимо совершить с матрицей(+,-,*, и умножение на число(при выборе умножение число вводится просто в существующую едитку) и весь результат выводится в stringgrid3.

У меня проблема такова:
Я не знаю что надо записать в RadioGroup1 чтобы при выборе + матрицы автоматически слаживались и выводились в stringgrid3(знаю что при выборе + матрицы должны бить одинаковой размерности потому может возможно как нить записать что если размерность 1-ой матрицы=2-ой то выполняется вычисление). Тут создается две матрицы отдельно потому что при выборе умножения размерность матриц разная, помогите плз!!! Вот код я смог только сделать так чтобы размерность вводилась в едитки и матрицы создавались:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, Grids, StdCtrls, ExtCtrls;   type   TForm1 = class(TForm)     Button1: TButton;     StringGrid1: TStringGrid;     Edit1: TEdit;     Edit2: TEdit;     Label1: TLabel;     Label2: TLabel;     Button2: TButton;     Edit6: TEdit;     Edit7: TEdit;     StringGrid2: TStringGrid;     StringGrid3: TStringGrid;     RadioGroup1: TRadioGroup;     Edit3: TEdit;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure RadioGroup1Click(Sender: TObject);     procedure Edit3Change(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   mas1,mas2,a,mas3:array of integer;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); begin  StringGrid1.FixedCols :=0;   StringGrid1.FixedRows :=0;     StringGrid1.ColCount := StrToInt(Edit1.Text);   StringGrid1.RowCount := StrToInt(Edit2.Text);     StringGrid1.Options := StringGrid1.Options + [goEditing]; end;   procedure TForm1.Button2Click(Sender: TObject); begin with StringGrid1 do SetLength(mas1, ColCount * RowCount); with StringGrid2 do SetLength(mas2, ColCount * RowCount); end;     procedure TForm1.RadioGroup1Click(Sender: TObject); begin   end;   end.