Strings trennen

[capo]

Hallo angos
wie muss ich das mit dem memo machen?

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  NeuStringwert, AltString: string;
  i: Integer;
begin
  for i := 0 to Memo1.Lines.Count - 1 do
    NeuStringwert := GetTextElement(1, '-', '???') + '-' + GetTextElement(3, '-', '???');
  Showmessage(NeuStringwert);
end;

Irgendwie verstehe ich nicht wo ich dann die Zahlen angeben soll.
gruss capo