Урок Release And Debug Как Работает Delphi (rad Studio)

[Lomanu4]

RELEASE;TRIAL_VERSION

procedure TForm1.FormCreate(Sender: TObject);
begin
{$IFDEF TRIAL_VERSION}
Caption := 'This is a TRIAL RELEASE version';
{$ELSE}
  {$IFDEF DEBUG}
  Caption := 'This is a DEBUG version';
   {$ELSE}
   Caption := 'This is a RELEASE version';
    {$ENDIF}
    {$ENDIF}
     end;