文件处理的问题，如何自定义文件名包括扩展名，如何提取文件内容？谢谢！

var
 F:FileName;
 fs:TFileStream;
 ss:TStringStream;
  Sl:TStrings;
begin
 Fs:=TFileStream.Create(f,frReadOnly//好像不对自己校正后面的参数吧）；
 ss:=TStringStream.Create('');
 ss.LoadFrom(Fs);
 Sl:=TstringList.Create;
 sl.LoadfromStreat(Ss);
//添加你自己处理Stringlist的代码
//其实ss的创建我自己感觉没必要，但是Borland推荐这样做
 fs.Free;
 Ss.Free;
 Sl.Free;
  
end;