Wort in einem Satz vor einem bestimmten Wort suchen

[heri]

Wie kann ich am schnellsten ein Wort in einem Satz vor einem bestimmten Wort suchen

mein Code funktioniert zwar - kommt mir aber etwas mühsam vor?

Delphi-Quellcode:

function WordBefore(const S, Word: String): String;
var
i: Integer;
sBuf: String;
begin
//S:      Das ist ein  Wort
//Word:   Wort
//Result: ein

  i := pos(Word, S);
  if i>0 then
  begin

    sBuf := Trim(copy(S,1,i-1)); //Das ist ein
    for i := Length(sBuf) downto 0 do
    begin

      if sBuf[i]<>' ' then
         Result := sBuf[i]+Result
      else
         exit;

    end;

  end;

end;

Hat jemand eine "bessere" Idee?
Thx