Anfänger kommt nicht weiter...

[Anfänger]

Hallo Moderator,

mein jetziger Code:

Code:

procedure TForm1.schreibe_ini;
var IniFile : TIniFile;
begin
     try
        IniFile:=TIniFile.create(ExtractFilePath(Paramstr(0))+'daten.dat');

        IniFile.WriteString ('Aktien',ComboBox1.Text,Edit2.Text);

     finally
       IniFile.Free;
     end;
end;

Aktien ist die Sektion, aus der ComboBox soll der Name gelesen werde
(s.o.) und aus Edit2 wird eine Nummer gelesen

zum Schluß soll stehn:

[Aktien]
Telekom=555750

das funzt ja auch soweit.

Nur beim Einlesen sehe ich noch nicht durch.

Ich möchte gern das Telkom in ein Label geschreiben wird.
Und geht nicht.

Code:

procedure TForm1.lese_ini;
var IniFile : TIniFile;
begin
     IniUpdate       := true;
     IniFile         := TIniFile.create(ExtractFilePath(Paramstr(0))+'daten.dat');

     Label31.Caption := IniFile.ReadString('Aktien',ComboBox1.Text,Label31.Caption);


     IniUpdate       := false;
   IniFile.Free
end;

Danke schon mal im vorraus
Anfänger

[edit=Admin]Code-Tags eingefügt.[/edit]