Перевод в StringGrid

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int dlina,shirina,height;
 
class rects
{
  protected:
    int dlina;
    int shirina;
  public:
    rects(int dlin=0, int shir=0){dlina=dlin; shirina=shir;}
    double Area(){return (dlina*shirina);}
    int GetRad(){return dlina*shirina;}
};
 
class Cube: public rects
{
  protected:
    int height;
  public:
    Cube(int dlin=0, int shir=0, int hg=0);
    double Vol(){return Area()*height;}
};
 
Cube::Cube(int dlin,int shir,int hg):rects(dlin,shir)
{
  height=hg;
}
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
   Application->Terminate();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{ int a,b,h;
  dlina=a;
  shirina=b;
  height=h;
  a=1;
  a=Edit1->Text.ToInt();
  b=1;
  b=Edit2->Text.ToInt();
  h=1;
  h=Edit3->Text.ToInt();
  rects rl(a,b);
  double ar=rl.Area();
  Cube *cb;
  cb=new Cube(a,b,h);
  double volcube=cb->Vol();
 
 
  Label1->Caption="Площадь квадрата/прямоугольника:"+IntToStr(rl.GetRad());
  Label2->Caption="Объем куба/параллелепипеда:"+FloatToStr(volcube);
 
}

  StringGrid1->Cells[stolbec][stroka] = FloatToStr(...);