Logikproblem mit Fokus

[Sweex]

So, wunderbar :-)
Nun habe ich noch ein weiteres kleines Problem. Die Fehlermeldungen lese ich als 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 2A Fehlgeschlagen." Das heißt ich muss mich auf Punkt oder Leerzeichen als Worttrenner verlassen.

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

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);

[Sir Rufo]

Zum einen: Neue Frage -> Neuer Thread (oder was hat das mit dem Fokus zu tun?)
Zum anderen: Delphi-Code bitte in die

Code:

[DELPHI][/DELPHI]

Tags einschliessen.