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

var
  StringList: TStringList;
begin
  StringList := TStringList.create;
  StringList.Add('irgend ein dummer text');  //etwas einfügen
  try
    StringList.SaveToFile('eindummerpfad\einedatei.txt');  //das ganze speichern
  finally
    StringList.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:

var
  StringList: TStringList;
begin
  StringList := TStringList.create;
  try
    try
      StringList.LoadFromFile('eindummerpfad\einedatei.txt');  //laden
    except
      showmessage('Die datei gibt es nicht');
      raise; //damit nicht versucht wird zu laden
    end;
    if StringList.Count > 0 then  //gucken ob es in deer datei überhaupt was zum laden gibt
    begin
      edit1.text := StringList.Items[0];  //jetzt steht da "irgend ein dummer text" drinnen 
    end else
    begin
      ShowMessage('ungültige datei');
    end;
  finally
    StringList.Free;
  end;  
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

[summary]
AnzahlItems = 42

[Item1]
Barcode = 4711
Name = Eimer
Preis = 10,00

[Item2]
Barcode = 12178
Name = Schaukelstuhl
Preis = 129,99

[Item3]
Barcode = 0815
Name = Teddybär
Preis = 13,39

...                    

1:
2:
3:
4:
5:
6:
7:

ini := TIniFile.Create('.\neu.ini');
try
ini.Writestring(nummer, 'name', name);
ini.Writestring(nummer, 'Preis', preis);
finally
ini.Free;
end;                    

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

procedure TKassenform.Button1Click(Sender: TObject);
begin
nummer:=edit1.Text;
  TIniFile.Create('.\neu.ini');
   try
    ini.Readstring(nummer, 'name', wert1);
    ini.Readstring(nummer, 'preis', wert2);
   finally
    Free;
  end;
  showmessage(wert1);
end;                    

1:

wert1 := ini.Readstring(nummer, 'name', 'Standardwert');