Вместо Memo в StringGrid

[max_praime]

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CSPIN"
#pragma resource "*.dfm"
TForm1 *Form1;
int S,i;
TStringList *Temp=new TStringList;
TDateTime CurrentDateTime=Now();
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{

}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
Form2->Show();
Form1->Visible=false;
Form2->Memo1->Lines=Form1->Memo1->Lines;
Form2->Memo1->Lines->Add("");
Form2->Memo1->Lines->Add("Итого: "+Form1->Edit1->Text);
Form2->Memo1->Lines->Add("---------------------------------------------------");
Form2->Memo1->Lines->Add(DateTimeToStr(CurrentDateTime));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CheckListBox1ClickCheck(TObject *Sender)
{
Temp->LoadFromFile("Цена.txt");
if (CheckListBox1->Checked[0]||CheckListBox1->Checked[1]||CheckListBox1->Checked[2]||CheckListBox1->Checked[3])
 Label4->Caption=Temp->Strings[CheckListBox1->ItemIndex];

}
//---------------------------------------------------------------------------
void __fastcall TForm1::CheckListBox1Click(TObject *Sender)
{
Temp->LoadFromFile("Цена.txt");
if (CheckListBox1->Selected[0]||CheckListBox1->Selected[1]||CheckListBox1->Selected[2]||CheckListBox1->Selected[3])
Label4->Caption=Temp->Strings[CheckListBox1->ItemIndex];
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Temp->LoadFromFile("Цена.txt");
char a;
if (CSpinEdit1->Value==1)
a='а';
if (CSpinEdit1->Value<5&&CSpinEdit1->Value>1)
a='и';
if (CSpinEdit1->Value>=5)
a=' ';
for(int i=0; i<CheckListBox1->Items->Count; i++)
 {
 if(CheckListBox1->Checked[i])
 {
 Memo1->Lines->Add(CheckListBox1->Items->Strings[i]+": "+CSpinEdit1->Value+" штук"+a);
 S=StrToInt(Temp->Strings[i])*CSpinEdit1->Value+S;
 }
 }
Edit1->Text=S;
CSpinEdit1->Value=1;
}
//---------------------------------------------------------------------------


void __fastcall TForm1::FormCreate(TObject *Sender)
{
CheckListBox1->Items->LoadFromFile("Список.txt");
}
//---------------------------------------------------------------------------




void __fastcall TForm1::CheckListBox1MouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
for (i=0; i<CheckListBox1->ItemIndex; i++)
 {
 CheckListBox1->Checked[i]=false;
 }
for (i=3; i>CheckListBox1->ItemIndex; i--)
 {
 CheckListBox1->Checked[i]=false;
 }
}

[Krok27]

StringGrid->Cols[номер столбца] это набор строк TStrings
StringGrid->Rows[номер строки] это набор строк TStrings
Работаем так же как с набором строк, т.е. Add("Итого") - добавить строку.
Количество столбцов и строк регулируется свойством ColCount и RowCount соотвественно. Посто Add тебе строку или колонку не добавит.
Доступ к конкретной ячейке StringGrid->Cells[номер столбца][номер строки] = "Итого".