1:
2:
3:
4:

procedure Button1.Click(Sender: TObject);
begin
  Self.Speichern; // Das wars auch schon.
end;					

1:

ExtractFilePath(Application.ExeName)					

1:
2:
3:

type
  TReMe = class(TForm)
    procedure TReMe.Speichern;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

type
  TReMe = class(TForm)
    procedure Speichern;

...

procedure TReMe.Speichern;
begin
  //
end;					

1:

  ini := TMemIniFile.Create(ExtractFilePath(Application.ExeName) + 'Dateiname.ini');					

1:

  ini := TMemIniFile.Create(ExtractFilePath(Application.ExeName) + 'Savedata.ini');					

1:

    ini.writeinteger('Abschnitt', 'Feld1', StrToInt(E1.Text));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

uses ..., IniFiles;

:
:
:

type
  TForm1 = class(TForm)
    e_Nr1: TEdit;
    e_Nr2: TEdit;
    e_Nr3: TEdit;
    procedure Speichern(Sender: TObject);
:
:
  private
:
    { Private-Deklarationen }
  public
:
    { Public-Deklarationen }
  end;

implementation
:

procedure TForm1.Speichern(Sender: TObject);
var
  ini: TIniFile;
  FName : string;
begin
  ini := TIniFile.Create('C:\temp\Datei.ini');
  FName := (Sender as TEdit).Name;
  try
    ini.writeString('Edit', FName, (Sender as TEdit).Text);
  finally
    ini.free;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

type
  TDataRec: packed record
    str: String[25]; //String mit 25 Zeichen Länge
    int1, int2: Integer; //dazugehörige Integerwerte
  end;

  TDataRecArr = array[0..9] of TDataRec;

var
  MyDataArray: TDataRecArr;

//speichern:
Stream := TFileStream.Create('C:\test.dat', fmCreate);
try
  Stream.Write(MyDataArray, SizeOf(MyDataArray));
finally
  Stream.Free;
end;

//laden:
Stream := TFileStream.Create('C:\test.dat', fmOpenRead);
try
  Stream.Read(MyDataArray, SizeOf(MyDataArray));
finally
  Stream.Free;
end;					

1:

    ini.writeString('Abschnitt', 'Feld1', [b][u]StrToInt[/u](E1.Text)[/b]);