Chápu dobře, že aplikace s jedinou funkcí:
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
pole: Array of Boolean;
begin
while (true) do setlength(Pole, length(Pole)+1);
end;