Object Pascalを6行でセグフォらせる

pythonを三行でセグフォらせる
pythonを2行でセグフォらせる
pythonを1行でセグフォらせる
C言語で16文字でセグフォらせる
Pythonを33文字でセグフォらせる
Rustを5行でセグフォらせる
C 言語で 5 文字でセグフォらせる
6行でJavaをセグフォらせる

を見て、たまたまそこにDelphiがあったので適当に書いたが
Delphi で最少のソースコードを書いてみるを見て反省して書き直し。

Project.dpr

program Project1;
uses Classes, Forms; {$R *.res}
var list: TStringList;
begin Application.Initialize; list.Delete(-1); Application.Run;
end.

これでいいみたい。

以下初回作

Unit1.pas

procedure TForm1.FormCreate(Sender: TObject);
var
 data:array[0..0] of string; i:integer;
begin
  for i:=0 to 1 do begin showmessage(data[i]); end;
end;

Delphi 言語 / Object Pascal について