Delphi10 урок по ООП, работа с TStringList, Memo и ShowMessage

Описание

var
Form1: TForm1;
s: TStringList;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear;
s.Destroy;
s:=nil;
if s=nil then
Button1.Enabled:=false;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if s //угловые скобки (не равно) - ютуб ругается
nil then
s.Destroy;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
s:= TStringList.Create;
s.Add('text');
s.Add('text2');
Application.Title:='Text ShowMessage';
ShowMessage(s.Text);
Memo1.Clear;
Memo1.Lines.Add(s.Text);
end;

end.