SaveDialog

//с открытием диалога------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
SaveDialog1->FileName="test.txt";
SaveDialog1->InitialDir="C:\\";
if (SaveDialog1->Execute())
{
Memo1->Lines->SaveToFile(SaveDialog1->FileName);
}
}
//без открытия диалога-----------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Memo1->Lines->SaveToFile("C:\\test.txt");
}

Form1->sScrollBar1->Position->SaveToFile("C:\\skins.txt");

TStringList *Lst;
AnsiString FilePath = "C:\\skins.txt";
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        Lst = new TStringList;
 
        if ( FileExists(FilePath) )
        {
                Lst->LoadFromFile(FilePath);
                ScrollBar1->Position = Lst->Strings[0].ToIntDef(0);
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
        if ( !Lst->Count ) Lst->Add("");
        Lst->Strings[0] = (AnsiString)ScrollBar1->Position;
        Lst->SaveToFile(FilePath);
}
//---------------------------------------------------------------------------