Как зафиксировать две строки в TMemo?

void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
      TCustomWinSocket *Socket)
{
  Memo1->Lines->Add(Socket->ReceiveText());
  Memo1->Lines->Add("-----------------------------------------------");
}

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    StringGrid1->ColCount = 1;
    StringGrid1->FixedRows = 2;
    StringGrid1->FixedCols = 0;
    StringGrid1->RowCount = 3;
    StringGrid1->ColWidths[0] = StringGrid1->Width - 20;
    StringGrid1->Options = StringGrid1->Options >> goHorzLine >> goVertLine;
    StringGrid1->Cells[0][0] = L"Принятые сообщения";
    StringGrid1->Cells[0][1] = L"------------------";
}

class TForm1 : public TForm
{
__published:    // IDE-managed Components
    // тут ничего не трогаем
private:    // User declarations
public: // User declarations
    __fastcall TForm1(TComponent* Owner);
 
    void __fastcall AddMessage(String message); // <--- Добавляем вот это
};

void __fastcall TForm1::AddMessage(String message)
{
    StringGrid1->Cells[0][StringGrid1->RowCount - 1] = message;
    StringGrid1->RowCount += 1;
    StringGrid1->TopRow = StringGrid1->RowCount - StringGrid1->VisibleRowCount;
}

    std::auto_ptr<TStringList> Save(new TStringList());
    for(int i = 0; i < StringGrid1->RowCount; i++)
    {
        Save->Add(StringGrid1->Rows[i]->CommaText);
    }
    Save->SaveToFile("d:\\test\\sg01.txt");