请帮帮我吧，关于TFileStream的问题（我是初学）

Question

我是一个苯鸟，在一段代码：  
       try  
       filestream:=TFilestream.Create('E:\a.txt',fmcreate);  
       filestream.WriteBuffer(buff,nlen);  
       finally  
       filestream.Free;  
运行后，出现文件'E:\a.txt',随后我将其删除，再次运行，不出现文件'E:\a.txt'。请各位大哥大姐帮分析一下。  另外‘filestream'may  not  have  been  initialized  ,我该如何初始化呢  

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var fs:TFileStream;
begin
  try
    fs:=TFilestream.Create('E:\a.txt',fmcreate);
    fs.WriteBuffer('123',3);
  finally
    fs.Free;
  end;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var fs:TFileStream;
begin  fs:=TFilestream.Create('E:\a.txt',fmcreate);
  try
    fs.WriteBuffer('123',3);
  finally
    fs.Free;
  end;end;

Answer 3

两位老哥：编译时仍然WARNING‘filestream'may  not  have  been  initialized  ,这有如何解决呢  

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var fs:TFileStream;
begin  fs:=nil;
  fs:=TFilestream.Create('E:\a.txt',fmcreate);
  try
    fs.WriteBuffer('123',3);
  finally
    fs.Free;
  end;end;

Answer 5

thanks,这是我在此的第一次提问