实现这种.ini文件格式的代码怎么写？

Question

实现这种.ini文件格式的代码怎么写？
在窗体的FormCreate事件过程里写入.ini文件，
要求：每创建一次窗体，均往.ini文件里追加一行记录，以记录该窗体创建时间，
格式如下：
[窗体创建时间]
创建时间=2008-10-08 20：30：30 //第1次创建该窗体
创建时间=2008-10-08 20：40：20 //第2次创建该窗体
创建时间=2008-10-08 20：51：10 //第3次创建该窗体
创建时间=2008-10-08 21：10：00 //第4次创建该窗体
创建时间=2008-10-08 21：20：20 //第5次创建该窗体
创建时间=2008-10-08 21：32：31 //第6次创建该窗体
创建时间=2008-10-08 22：20：00 //第7次创建该窗体
创建时间=2008-10-09 08：05：25 //第8次创建该窗体
创建时间=2008-10-09 09：21：36 //第9次创建该窗体

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
var
  vFTxt: TextFile;
  vPath,aLog: string;
begin
  vPath := 'D:\a.ini';
  AssignFile(vFTxt, vPath);
  try
      if FileExists(vPath) then
        Append(vFTxt)
      else
        Rewrite(vFTxt);
      aLog := '创建时间='+FormatDateTime('YYYY-MM-DD HH:MM:SS', now);
      writeln(vFTxt, aLog);
  finally
    closeFile(vFTxt); //关闭文件
  end;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  WritePrivateProfileString('窗体创建时间', '创建时间',pchar( FormatDateTime('YYYY-MM-DD HH:MM:SS', now)), 'c:\log.ini');
end;

Answer 3

[窗体创建时间] 
创建时间=2008-10-08 20：30：30 //第1次创建该窗体 
创建时间=2008-10-08 20：40：20 //第2次创建该窗体 
创建时间=2008-10-08 20：51：10 //第3次创建该窗体 
创建时间=2008-10-08 21：10：00 //第4次创建该窗体 
创建时间=2008-10-08 21：20：20 //第5次创建该窗体 
创建时间=2008-10-08 21：32：31 //第6次创建该窗体 
创建时间=2008-10-08 22：20：00 //第7次创建该窗体 
创建时间=2008-10-09 08：05：25 //第8次创建该窗体 
创建时间=2008-10-09 09：21：36 //第9次创建该窗体Ini文件中是不会实现这种效果的,应该把它改一下,例如创建时间1=2008-10-08 20：30：30 //第1次创建该窗体 
创建时间2=2008-10-08 20：40：20 //第2次创建该窗体 
创建时间3=2008-10-08 20：51：10 //第3次创建该窗体 
创建时间4=2008-10-08 21：10：00 //第4次创建该窗体 
创建时间5=2008-10-08 21：20：20 //第5次创建该窗体 
创建时间6=2008-10-08 21：32：31 //第6次创建该窗体 
创建时间7=2008-10-08 22：20：00 //第7次创建该窗体 
创建时间8=2008-10-09 08：05：25 //第8次创建该窗体 
创建时间9=2008-10-09 09：21：36 //第9次创建该窗体