请问在按钮1执行后在C盘创建一个1.TXT,如何把C盘里的1.TXT显示在Edit1控件里?

procedure TForm1.Button1Click(Sender: TObject);
var
FileName:string;
i:integer;
begin
  FileName:='c:\1.txt';
  i:=FileCreate(FileName);
  Edit1.Text:=FileName;
  showmessage(Edit1.Text);
end;
end.

楼主,我是想写个扫描工具,把扫描的结果在C盘目录里创建一个IP.TXT,然后把IP.TXT显示在Edit1里!