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

procedure TForm1.Button1Click(Sender: TObject);
var 
   name:string;
   zahl,t:integer;
begin
edit1.Text:='Delphi-Forum=www.auq.de';
edit2.Text:='';
edit3.Text:='';
name:=edit1.Text;
zahl:=0;
while name[1]<>'=' do begin
delete(name,1,1);
zahl:=zahl+1;
end;
delete(name,1,1);
edit3.text:=name;
for t:= 1 to zahl do edit2.Text:=edit2.text+edit1.Text[t];
end;					

1:
2:
3:

[URL]
Sport=www.sport.de
Delphi=www.delphi-forum.de					

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

[url]
Sport = www.sport.de
Delphi = www.delphi.de
...
..
.					

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

eintrag:=TIniFile.Create('c:\temp\eintrag.ini');

name1:=eintrag.ReadString('Name','name1','');
web1:=eintrag.ReadString('URL','url1','');

name2:=eintrag.ReadString('Name','name2','');
web2:=eintrag.ReadString('URL','url2','');					

1:
2:
3:

Sport = www.sport.de 
Delphi = www.delphi.de 
...					

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

var
  lst : TStringList;
  i : integer;
begin
  lst := TStringList.Create;
  try
    lst.LoadFromFile(dein Dateiname);
    for i := 0 to ls.count - 1 do begin
      mach was mit ls.Names[i]; das ist der Name
      tu sonstwas mit ls.Values(ls.Names[i]); das ist der zugehörige Wert
    end;
  finally
    lst.Free;
  end;
end;