実行すると、現在の日時を表示するアプリです。
家では電話が鳴るとモデムがPCを起動させる設定なので、
これをスタートアップに入れとくと、留守電に記録されてなくても
電話の入った時刻がわかります。ただし、PCは電源が入ったまま(汗)。
フォーム等を使わないので、EXEの大きさは約45Kバイトです(D4)。
Delphi起動後、プロジェクト->プロジェクトから削除 で、unit1を削除し、
プロジェクト->ソースの表示 で直接'.dpr'ファイルを編集してください。

//showtime.dpr
program showtime;

uses Windows,SysUtils;

{$R *.RES}
var
  DT:array[0..20]of Char;
begin
  StrPcopy(DT,DateTimeToStr(Now));
  MessageBox(0,DT,'現在日時',MB_OK);
end.

--1999/12/31(Fri) 09:44pm  TaKoR(KFA00073)

Original document by TaKoR           氏 ID:(KFA00073)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。