Составить Delphi-программу для заполнения таблицы соотношения между такими мерами веса как унция, грамм, карат.

[Lilit))]

здравствуйте! я не программист. но очень нужно решить одну задачу.
если быть честной в delphi ничего никогда не делала, помогите пожалуйста!

Составить Delphi-программу для заполнения таблицы соотношения между такими мерами веса как унция, грамм, карат. Пользователь вводит значение одной из мер, программа определяет значение двух других, и заносит их в таблицу. (1 унция = 28,353495 г. = 142 карат).

[Hacker19_90]

Пишите в асю (в профиле)! Помогу

[whatever]

Накидал тут по быстрому:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Button1: TButton;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (edit1.text<>'') and (radiobutton1.Checked) then
    begin
      stringgrid1.Cells[1,i]:=edit1.Text; //унция
      stringgrid1.Cells[2,i]:=floattostr(StrTofloat(edit1.Text)*28.353495);//грамм
      stringgrid1.Cells[3,i]:=floattostr(StrTofloat(edit1.Text)*142);//карат
    end;
  if (edit1.text<>'') and (radiobutton2.Checked) then
    begin
      stringgrid1.Cells[1,i]:=floattostr(StrTofloat(edit1.Text)*0.04);
      stringgrid1.Cells[2,i]:=edit1.Text;
      stringgrid1.Cells[3,i]:=floattostr(StrTofloat(edit1.Text)*5);
    end;
  if (edit1.text<>'') and (radiobutton3.Checked) then
    begin
      stringgrid1.Cells[1,i]:=floattostr(StrTofloat(edit1.Text)*0.01);
      stringgrid1.Cells[2,i]:=floattostr(StrTofloat(edit1.Text)*0.2);
      stringgrid1.Cells[3,i]:=edit1.Text;
    end;
  inc(i);
end;



initialization
  decimalseparator:='.';
//  form1.StringGrid1.Cells[1,0]:='Унции';
//  form1.StringGrid1.Cells[2,0]:='Граммы';
//  form1.StringGrid1.Cells[3,0]:='Караты';
  i:=1;
end.

Правда подписать столбцы почему-то не получилось, и защиту от неправильного ввода не писал.
p.s. Не обижусь, если кто подскажет, почему не подписались столбцы (там, где закоментировал).