Помогите с программой пожалуйста

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Sg1: TStringGrid;
    Button2: TButton;
    Button3: TButton;
    sg2: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
 
i,m:integer;
begin
 
  m:=strtoint(edit1.text);
 
  for i:=1 to m do
  begin
 
       sg1.cells[0,0]:='№ Игрока';
       sg1.cells[1,0]:='Ответы';
       sg1.cells[2,0]:='Вклад';
     
 
      sg1.cells[0,i]:=inttostr(i);
       Sg1.RowCount := Sg1.RowCount + 1;
 
 
  end;
 
  //  sg1.cells[1,n]:=inttostr(r);
 
   //   sg1.cells[2,n]:=inttostr(v);
             begin
                     showmessage('Введите данные в таблицу');
                     exit;
                     end;
 
 
          end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
For i:=0 to Sg1.ColCount-1 do
 Sg1.Cols[i].Clear;
 Sg1.RowCount:=1;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
Answer:array of array of real;
    Bank:array of array of real;
 i,m,cc,cr:integer;
begin
cc:=sg1.ColCount;
cr:=sg1.RowCount;
 
 m:=strtoint(edit1.text);
  for i:=1 to m do
 answer[1,i]:=StrToFloat(sg1.Cells[1,i]);
 bank[2,i]:=StrToFloat(sg1.Cells[2,i]);
 end;
 
  begin
    for i:=1 to cc do
 
     sg2.cells[1,i-1]:=floattostr(answer[1,i]);
 
end.