作业上遇到了问题，请达人指点

Question

代码如下：
procedure TmimaFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   mimaFrm:=nil ;
end;procedure TmimaFrm.SpeedButton2Click(Sender: TObject);
begin
      close;
end;procedure TmimaFrm.SpeedButton1Click(Sender: TObject);
var
   systemini :TIniFile ;
   pass :String ;
begin
   systemini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'system.ini');
   pass:=systemini.Readstring('user','pass','');
   if (trim(Edit1.Text)<> pass ) then
        showmessage('输入的原始密码错误!请重新输入!')
   else
       if (trim(Edit2.Text)<>trim(Edit3.Text))  then showmessage('新密码不一致,请确认密码!')
           else begin
           systemini.writestring('user','pass',trim(edit2.Text)) ;
           showmessage('密码修改成功!') ;
           close;
           end;
end;procedure TmimaFrm.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13  then SpeedButton1.Click;
end;当中Create(ExtractFilePath(Application.ExeName)+'system.ini')writestring意思和作用分别是什么

Answer 1

Create(ExtractFilePath(Application.ExeName)+'system.ini')
这个是在当前路径下创建或者打开system.ini这个文件writestring
是写入一行字符串数据到ini文件里面

Answer 2

Create(ExtractFilePath(Application.ExeName)+'system.ini')
如果不存在這個文件則創建~~如果存在則直接進行讀寫操作~~readstring() writestring()

Answer 3

Create(ExtractFilePath(Application.ExeName)+'system.ini')-------------------------------------------------
在你的应用程序的目录里面创建system配置文件writestring
---------------------------------
向system.ini里面写入内容