problem z wczytywaniem do kilku kontrolek

Witam! Jeszcze raz poroszam problem wczytywania tekstu z pliku do kilku kontrolek edycyjnych (np. TEdit). Jest to cos podobnego do zrodla Adama ale nie dokladnie to czego mi trzeba. Chodzi mi o wykozystanie petli Repeat...Until.
Dajmy na to ze mamy plik o takiej tresci:

imie%nazwisko%adres%telefon

teraz chce do Edit1 wczytac "imie", do Edit2 - "nazwisko", Edit3 - "adres" i Edit4 - "telefon". Inaczej mowiac - ciagi znakow, oddzielone pojedynczym znakiem "%", zostaja wpisywane kolejno do kontrolek.

Mialem kiedys taka procedure ale nie pamietam jak to bylo... wiem ze robila to petla Repeat...Until.

Czekam na szybka odpowiedz!!
Pozdrawiam!
Czarownik

pos + copy + delete + f1 + brain

Var S:TStringList;
Begin
S:=TStringList.Create;
S.Text:=StringReplace(Text,'%',#13#10,[rfReplaceAll]);
Edit1.Text:=S.Strings[0];
Edit2.Text:=S.Strings[1];
Edit3.Text:=S.Strings[2];
Edit4.Text:=S.Strings[3];
S.Free;
End;