Как перезаписать файл, а не дописать в него?

void __fastcall TForm1::Save1Click(TObject *Sender)
{
    if( SaveDialog1->Execute() )
    {
        TStringList *list = new TStringList;
 
        if( FileExists (SaveDialog1->FileName) )
            list->LoadFromFile(SaveDialog1->FileName);
        list->Append(Edit1->Text);
        list->Append(Edit2->Text);
        list->Append(Edit3->Text);
        list->Append(Edit4->Text);
        list->Append(Edit5->Text);
        list->Append(Edit6->Text);
        list->Append(Edit7->Text);
        list->SaveToFile(SaveDialog1->FileName);
    }
}

void __fastcall TForm1::Save1Click(TObject *Sender)
{
    if( SaveDialog1->Execute() )
    {
        TStringList *list = new TStringList;
        list->Add(Edit1->Text);
        list->Add(Edit2->Text);
        list->Add(Edit3->Text);
        list->Add(Edit4->Text);
        list->Add(Edit5->Text);
        list->Add(Edit6->Text);
        list->Add(Edit7->Text);
        list->SaveToFile(SaveDialog1->FileName);
    }
}