wo finde ich --->TForm1.Form1Destroy<---

[MisterX]

Delphi-Quellcode:

var
  link_num : integer;
  s : TStringList;

procedure TForm1.Timer1Timer(Sender : TObject);
begin
  ShellExecute(Handle, PChar('open'), PChar(S.Items[link_num]), PChar(''), SW_SHOWNORMAL));
  Inc(link_num);
  if link_num = S.Count then link_num := 0;
end;

procedure TForm1.Form1Create(Sender : TObject);
begin
  link_num := 0;
  S := TStringList.Create; 
  S.LoadFromFile('wasweißichwo.txt');
end;

procedure TForm1.Form1Destroy(Sender : TObject);
begin
  S.Free;
end;