[実行ファイル名の取得と強制終了]

実行ファイル名をがtips0005.exeと異なれば、強制終了します。

program tips0005;
{$APPTYPE CONSOLE}
uses   Windows, SysUtils;
var
  strMyName:string;
begin
  strMyName:=UpperCase(StringReplace(ParamStr(0),ExtractFilePath(ParamStr(0)),'', [ rfReplaceAll ]));
  If strMyName <> 'TIPS0005.EXE' Then
  begin
    writeLn('tips0005.exe で実行してください。');
    readLn;
    Exit;
  end;
end.

dcc32 tips0005.pas 
tips0005.exe > tips0005.txt
pause