Ist ja super...
[edit]List ist TStringlist (btw)[/edit]
Delphi-Quellcode:
List := TStringList.Create;
List.Delimiter := '|';
List.DelimitedText := s;
// s ist übrigens deine Zeile von oben...
List.Strings[0] ist dann 'Element1'
List.Strings[1] ist 'Element2' usw...
Na ja, vielleicht hilfts dir ja...