VCL: формы и компоненты

// Определите реальную гарантию в FormLifetime.
program FormLifetime;
uses Vcl.Forms, Vcl.StdCtrls;
procedure ShowEditor;
var
  F: TForm;
begin
  F := TForm.Create(nil);
  try
    F.ShowModal;
  finally
    F.Free;
  end;
end;
begin end.

// Результат не зависит от режима полной или сокращённой оценки Boolean.
program FormValidation;
uses System.SysUtils, Vcl.StdCtrls;
function ReadAge(Edit: TEdit; out Age: Integer): Boolean;
begin
  if not TryStrToInt(Trim(Edit.Text), Age) then
    Exit(False);
  Result := (Age >= 0) and (Age <= 130);
end;
begin
end.

// Отделите правило языка от удачного запуска VclThreadUi.
program VclThreadUi;
uses System.Threading, System.Classes, Vcl.StdCtrls;
procedure LoadCaption(Label1: TLabel);
begin
  TTask.Run(procedure
    var Text: string;
    begin
      Text := 'loaded';
      TThread.Queue(nil, procedure begin Label1.Caption := Text; end);
    end);
end;
begin end.

// Отделите правило языка от удачного запуска VclEventLifetime.
program VclEventLifetime;
uses Vcl.StdCtrls;
type
  THandler = class
    procedure Click(Sender: TObject);
  end;
procedure THandler.Click(Sender: TObject);
begin TButton(Sender).Caption := 'Done'; end;
begin end.

// Определите реальную гарантию в OwnerParent.
program OwnerParent;
uses Vcl.Forms, Vcl.StdCtrls;
var
  Form: TForm;
  Button: TButton;
begin
  Form := TForm.Create(nil);
  try
    Button := TButton.Create(Form);
    Button.Parent := Form;
    Button.Caption := 'Run';
  finally Form.Free; end;
end.