procedure TForm1.Button1Click(Sender: TObject);
begin
ForceDirectories('c:\aa\') ;//创建目录
FileCreate('c:\a.ini');//创建文件,将a.后面改为其它就是你要创建的文件类型了。
end;


至于创建文件后点样向文件写入内容..........

如果是创建＊．ini文件的化：
在uses下加iniFiles

创建一个a: TIniFile;对象

  a := TIniFile.Create('路径'，fmCreate);
据体的类容看TIniFile类的帮助文档

[quote]如果是创建＊．ini文件的化：
在uses下加iniFiles

创建一个a: TIniFile;对象

  a := TIniFile.Create('路径'，fmCreate);
据体的类容看TIniFile类的帮助文档[/quote]

又学一招

procedure TForm1.BTN_WRITEClick Sender: TObject;

var

vIniFile: TIniFile; //声明一个TiniFile对象

begin

//创建或打开一个INI文件

vIniFile:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'sample.ini');

//如果在Create函数中写成Create('sample.ini')，那么程序默认将文件创建在Windows目录中。ExtractFilePath函数用于获取文件路径，ParamStr是程序启动时所保存的参数，(0)里存储的则是当前应用程序的完整路径。

//ExtractFilePath(ParamStr(0))+'sample.ini')则是在当前应用程序所在目录中创建Sample.ini文件。

vIniFile.WriteString('我的程序','作者','伟博'); //写入字符串数据

vIniFile.WriteString('我的程序','版本','1.0');

vIniFile.WriteInteger('程序数据','Top',0); //写入整型数据

vIniFile.WriteInteger('程序数据','Left',5);

vIniFile.Free; //释放对象

end;

上面的程序代码则实现了INI文件的创建及数据的写入。按F9键运行程序，单击“写入数据”按钮，这时程序则创建了Sample.ini文件并向里面写入了数据。现在我们打开Sample.ini文件就可以看到文件中的内容了。