program Project1;

uses
  Forms,sysutils,dialogs,windows,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
var myheart:string;
begin
if datetostr(now)='2004-6-27' then
   begin
    myheart:=#13#10+'今天是流星的生日'+#13#10+#13#10+'一位溫柔善良、也是我曾深深愛過'+#13#10+'但卻傷我最重的女孩子...'+#13#10+'雖然這份愛最終還是無情離我而去...'+#13#10+'但，為了她的幸福，我還是要祝福她'+#13#10+'祝她永遠(yuǎn)過的比我好！'
    +#13#10+#13#10+'流星，請多保重...'
    +#13#10+#13#10+'只有你快樂我才會(huì)快樂，只有你幸福我才會(huì)幸福...'
    +#13#10+'愿天下有情人終成眷屬！'+#13#10
    +#13#10+'單飛的風(fēng)箏'
    +#13#10+datetimetostr(now)+' 于山東聊城';
    Application.MessageBox(pchar(myheart),'Happy Birthday,My Love,My Gril!',MB_OK+MB_ICONINFORMATION);
    end;
  Application.Initialize;
  Application.Title := 'MC V1.0';
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.