class TForm1 : public TForm
{
__published:    // IDE 管理のコンポーネント
    ...
    void __fastcall FormCreate(TObject *Sender);
private:        // ユーザー宣言
public:         // ユーザー宣言
    __fastcall TForm1(TComponent* Owner);

    AnsiString __fastcall GetLocalTime();    // ローカルタイムの時分秒.秒を取得し返答

};

AnsiString __fastcall TForm1::GetLocalTime()
{
    Word Hour, Min, Sec, MSec;
    TDateTime dtPresent = Now();                    // Now は現在の日付と時刻を返します
    DecodeTime(dtPresent, Hour, Min, Sec, MSec);    // TDateTime オブジェクトを時，分，秒，ミリ秒に分解します
    char buffer[16];
    sprintf(buffer, "%2d:%02d:%02d.%03d",Hour,Min,Sec,MSec);
    AnsiString str = buffer;

    return(str);
}