Funktion, dass Zwei Wörter in einem String erkennt?

[thiagojonas]

Hall Freunde,
gibt es den in Delphi ein Funktion oder eine Möglichkeit aus einem String zwei Wörtet zu erkennen, die mit einem Leerzeichen voneinader getrennt sind und das zweite Wort(von links nach rechts) in eine andere variable zu speichern?

Z.B:

Delphi-Quellcode:

Wayne:string;
Ort: String;
Wayne:= ' 38302 Watenbüttel';
// Dann die Funktion
Ort := Funktion(2tes Wort);// Watenbüttel

Danke im voraus