Extraer última palabra de una frase

[marcoszorrilla]

Aunque habrá otras formas de momento he preparado este ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
s:String;
l:Integer;
P:String;
begin
S:=Trim(Edit1.Text);
l:=Length(s);
While (l > 0) and (s[l] <> ' ')do
begin
l:=l-1;
end;
p:=copy(S,l,Length(s));
ShowMessage(p);
end;

Un Saludo.