procedure Form1.Button1Click(Sender: TObject);
var
　F: TFile;
　FL: TFolder;
begin
　F := TFile.Create;
　FL := TFile.Create;

　F.Name := '新しいファイル';
　FL.Add(F);
　ここでいろいろな処理

　FL.Free;
　F.Free;
end;

このような感じで作っているのですがFL内のリストにFのデータが追加がされません。
どこがおかしいのでしょうか。