TForm *f1;
TButton *b1;
TLabel *l1;    void __fastcall MyShowmessage(const String msg,int fontsize)
{
  f1 = new TForm(Form1);
  b1 = new TButton(f1);
  l1 = new TLabel(f1);      l1->Font->Size = fontsize;
  l1->Caption = msg;
  l1->Top = 20;
  l1->Font->Color = clGreen;
  l1->Left = 20;
  l1->Parent = f1;
  l1->Width=300;      f1->Width = 300;
  f1->Height = 150;
  f1->Top = Screen->Height / 2 - f1->Height / 2;
  f1->Left = Screen->Width / 2 - f1->Width / 2;
  f1->BorderStyle = bsDialog;
  f1->BorderIcons<Caption = "結果";      b1->Parent = f1;
  b1->Top = 60;
  b1->Left = 100;
  b1->Caption = "Cancel";
  b1->ModalResult= mrCancel;      f1->Show();
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
     MyShowmessage("您好，此訊息一秒後，自動關掉",10);
     Timer1->Enabled = true;
}    void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
         f1->Free();
         Timer1->Enabled = false;
}