[v1s2222]

Код:

procedure TForm1.Button8Click(Sender: TObject);
begin
  with TInifile.Create('Save.ini') Do
  begin
    WriteString('Main','Edit',Edit1.Text);
    free;
  end;
end;

Должно работать.