Einzelne Wörter aus String->Help plz

[Pseudemys Nelsoni]

ich hätts so gemacht

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  var1, var2, var3: string;
begin
  var1 := Copy(TheString, 1, POS(' ', TheString)-1);
  Delete(TheString, 1, Length(var1)+1);
  var2 := Copy(TheString, 1, POS(' ', TheString)-1);
  Delete(TheString, 1, Length(var2)+1);
  var3 := TheString;
  TheString := '';
end;