Wort aus String extrahieren

[Sweex]

Hallo liebe Community,

Ich möchte für mein Programm nun ein Wort aus einem String extrahieren. Die Lösungen von Tante Google brachten mich hier nicht weiter, da ich die Wörter nicht per
Nummerierung ansprechen möchte (weil ich ja nicht immer das z.b. dritte Wort extrahieren möchte. Ich lese also mit dem Programm Fehlermeldungen als einen String aus, nun möchte ich das auf den wesentlichen Teil beschneiden.
Wenn dort z.b. steht "Messfehler in Modul 2A. Überprüfen Sie ebenfalls die Verbindung zu XY" dann soll er mir da 2A rausschneiden und sonst nichts. Manchmal kommen halt auch andere Fehlermeldungen z.b. "Aktualisierung bei Modul 2Orange Fehlgeschlagen." Das heißt ich muss mich auf Punkt oder Leerzeichen als Worttrenner verlassen können.

Ich versuchte es so zu lösen, wobei Outbound der mit der Fehlermeldung gefüllte String ist.

Delphi-Quellcode:

Suchwort:='Modul ';
Position := Pos(Suchwort, Outbound);
if Position <> 0 then begin
delete(Outbound, 1, pos(suchwort, Outbound) + length(suchwort) - 1);
Outbound := copy(Outbound, 1, pos(' ', Outbound) - 1);