[Delphi]: Доделка

[SEXTANT]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    sg1: TStringGrid;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    ComboBox6: TComboBox;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label10: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i,d,m,g,o,o1,o2:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var m1,g1:string;
begin
  i:=i+1;
  sg1.Cells[0,i]:=inttostr(i);
  sg1.RowCount:=i+1;
  sg1.Cells[1,i]:= Edit1.Text;
    case ComboBox1.ItemIndex of
      0:  d:=1;
      1:  d:=2;
      2:  d:=3;
      3:  d:=4;
      4:  d:=5;
      5:  d:=6;
      6:  d:=7;
      7:  d:=8;
      8:  d:=9;
      9:  d:=10;
      10: d:=11;
      11: d:=12;
      12: d:=13;
      13: d:=14;
      14: d:=15;
      15: d:=16;
      16: d:=17;
      17: d:=18;
      18: d:=19;
      19: d:=20;
      20: d:=21;
      21: d:=22;
      22: d:=23;
      23: d:=24;
      24: d:=25;
      25: d:=26;
      26: d:=27;
      27: d:=28;
      28: d:=29;
      29: d:=30;
      30: d:=31;
    end;
    case ComboBox2.ItemIndex of
      0:  m1:= ' января ';
      1:  m1:= ' Февраля ';
      2:  m1:= ' марта ';
      3:  m1:= ' апреля ';
      4:  m1:= ' мая ';
      5:  m1:= ' июня ';
      6:  m1:= ' июля ';
      7:  m1:= ' августа ';
      8:  m1:= ' сентября ';
      9:  m1:= ' октября ';
      10: m1:= ' ноября ';
      11: m1:= ' декабря ';
    end;
    case ComboBox2.ItemIndex of
      0:  m:=1;
      1:  m:=2;
      2:  m:=3;
      3:  m:=4;
      4:  m:=5;
      5:  m:=6;
      6:  m:=7;
      7:  m:=8;
      8:  m:=9;
      9:  m:=10;
      10: m:=11;
      11: m:=12;
    end;
      case ComboBox3.ItemIndex of
      0:  g1:= '1970';
      1:  g1:= '1971';
      2:  g1:= '1972';
      3:  g1:= '1973';
      4:  g1:= '1974';
      5:  g1:= '1975';
      6:  g1:= '1976';
      7:  g1:= '1977';
      8:  g1:= '1978';
      9:  g1:= '1979';
      10: g1:= '1980';
      11: g1:= '1981';
      12: g1:= '1982';
      13: g1:= '1983';
      14: g1:= '1984';
      15: g1:= '1985';
      16: g1:= '1986';
      17: g1:= '1987';
      18: g1:= '1988';
      19: g1:= '1989';
      20: g1:= '1990';
      21: g1:= '1991';
      22: g1:= '1992';
      23: g1:= '1993';
      24: g1:= '1994';
      25: g1:= '1995';
      26: g1:= '1996';
      27: g1:= '1997';
      28: g1:= '1998';
      29: g1:= '1999';
      30: g1:= '2000';
      31: g1:= '2001';
      end;
      case ComboBox3.ItemIndex of
      0:  g:=32;
      1:  g:=31;
      2:  g:=30;
      3:  g:=29;
      4:  g:=28;
      5:  g:=27;
      6:  g:=26;
      7:  g:=25;
      8:  g:=24;
      9:  g:=23;
      10: g:=22;
      11: g:=21;
      12: g:=20;
      13: g:=19;
      14: g:=18;
      15: g:=17;
      16: g:=16;
      17: g:=15;
      18: g:=14;
      19: g:=13;
      20: g:=12;
      21: g:=11;
      22: g:=10;
      23: g:=9;
      24: g:=8;
      25: g:=7;
      26: g:=6;
      27: g:=5;
      28: g:=4;
      29: g:=3;
      30: g:=2;
      31: g:=1;
      end;
  sg1.Cells[2,i]:=inttostr(d) + m1 + g1;
    case ComboBox4.ItemIndex of
      0: o:=1;
      1: o:=2;
      2: o:=3;
      3: o:=4;
      4: o:=5;
    end;
     case ComboBox5.ItemIndex of
      0: o1:=1;
      1: o1:=2;
      2: o1:=3;
      3: o1:=4;
      4: o1:=5;
    end;
     case ComboBox6.ItemIndex of
      0: o2:=1;
      1: o2:=2;
      2: o2:=3;
      3: o2:=4;
      4: o2:=5;
    end;
    sg1.Cells[3,i]:=inttostr(o);
    sg1.Cells[4,i]:=inttostr(o1);
    sg1.Cells[5,i]:=inttostr(o2);


end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  sg1.Cells[0,0]:='№';
  sg1.Cells[1,0]:='Фамилия А.А';
  sg1.Cells[2,0]:='Дата рождения';
  sg1.Cells[3,0]:='История';
  sg1.Cells[4,0]:='ИКТ';
  sg1.Cells[5,0]:='ФЗК';
  i:=0;
end;

end.

Форма:


Помогите доделать расчет самого старшего, не получается . Спасибо