Scrollbox: Drei komponenten zur laufzeit hinzufügen ?

[mimi]

Hallo,
ich möchte aus einer Text Datei drei Komponenten zur laufzeit hinzufügen die Datei sieht so aus:

Zitat:

Autor,EMail,Hompage,
Autor2,EMail2,Hompage2,

dazu habe ich folgenden qullcode geschrieben:

Delphi-Quellcode:

procedure TForm2.LoadInfo;
var
  Daten:TStringList;
  i:Integer;
  bf:TBevel;
  hl,hl2:TJvHotLink;
  hp,email:String;
begin
  Daten:=TStringList.Create;
  Daten.LoadFromFile(GetExeDir + 'infoList.txt');
  for i:=0 to Daten.Count-1 do begin
    hl:=TJvHotLink.Create(Form2); // HP
    hl.Parent:=ScrollBox1;
    hl.Caption:='Hompage von: ' + GetToken(Daten.Strings[i],',',1);
    hl.Url:=GetToken(Daten.Strings[i],',',3);
    hl.AutoSize:=False;
    hl.Left:=5;
    hl.Top:=5+(i*13);
    hl.Width:=253;
    hl.Height:=13;
    hl.Visible:=True;

    hl2:=TJvHotLink.Create(Form2); // E-Mail
    hl2.Parent:=ScrollBox1;
    hl2.AutoSize:=False;
    hl2.Caption:='E-Mail von: '+ GetToken(Daten.Strings[i],',',1);
    hl2.Url:=GetToken(Daten.Strings[i],',',2);
    hl2.Left:=5;
    hl2.Top:=hl.Top+15;
    hl2.Width:=253;
    hl2.Height:=13;
    hl2.Visible:=True;

    bf:=TBevel.Create(Form2);
    bf.Parent:=ScrollBox1;
    bf.Left:=5;
    bf.Top:=hl2.Top+15;
    bf.Width:=253;
    bf.Height:=9;
    bf.Shape:=bsTopLine;
    bf.Visible:=true;
    ShowmEssage(Daten.Strings[i]);
//    FreeAndNil(hl2); FreeAndNil(hl); FreeAndNil(bf);
  end;
end;

Der Fehler ist folgender jetzt:
es sollen drei komponenten(bf:TBevel; hl,hl2:TJvHotLink)
hinzugeüfgt werden. und dies 2 mal das heißt bei zwei einträgen in der Textdatei müste ich 6 komponenten haben das habe ich nicht, ich habe nur 5 weil beim ersten durchgang wird aus irgeneinen grund die e-mail komponente nicht hinzugefügt. das sieht dann so aus:

Zitat:

Hompoage von: Autor
Hompoage von: Autor2
E-Mail von: Autor2
--------------------------

aber es sollte so ausehen:

Zitat:

Hompoage von: Autor
E-Mail von: Autor
--------------------------
Hompoage von: Autor2
E-Mail von: Autor2
--------------------------