copy pos Problem

[Micha]

Guten Morgen,

Ich habe mir hier im Forum nachfolgenden Code zusammengebastelt und wollte jetzt wissen ob der so passt oder ob es vielleicht einfacher geht.

Erstmal:
Am Anfang steht eine Textdatei mit folgendem Beispielinhalt: 6,80;2,40
Am Ende soll der String so aussehen: Muster AG 6,80 (2,40%) +++ Parkett +++

Delphi-Quellcode:

procedure Tfrm_main.btn_txt_ladenClick(Sender: TObject);
var
  werte : string;
  s: String;
  prozwert: String;
  n: Integer;
  pagwert: string;
Begin
// Werte werden von einem Textfile gezogen
// Textfile enthält folgende Daten: 6,80;2,34
// zur Info: Datei enthält Börsenkurs;Veränderung in Prozent

 List:= TStringList.Create;
 List.LoadFromFile(edt_filename.text);
 werte := List.text;

 // Läd Prozentwert
   prozwert:= werte;
   prozwert:=Copy(prozwert, Pos(';', prozwert)+1, Length(prozwert));

  s := ';' + werte + ';';
  n := 1;
  while true do
  begin
    pagwert := Copy(s,PosEx(';',s,n)+1,PosEx(';',s,n + 1) - PosEx(';',s,n) - 1);
    if pagwert = '' then exit;
    n := PosEx(';',s,PosEx(';',s,n)+1) + 2;

// Ausgabe in einem Edit-Feld
    edt_ticker0.text := 'Muster AG ' + pagwert + ' (' + prozwert + '%) +++ PARKETT +++ ';
  end;
end;