procedure TForm6.Button2Click(Sender: TObject);
var ini1:TINIFile;
begin try
ini1 := TINiFile.Create(form1.get_res_profile);
ini1.EraseSection(Hint);
ini1.WriteString(Edit1.Text,'path',Edit6.Text);
ini1.WriteString(Edit1.Text,'details',Edit4.Text);
ini1.WriteString(Edit1.Text,'comment',Edit5.Text);
ini1.WriteString(Edit1.Text,'create',Edit2.Text);
ini1.WriteString(Edit1.Text,'owner',Edit3.Text);
ini1.free;
tag := 1;
Close;
except end;End;