[marcoszorrilla]

Muy buena idea, pero es necesario utilizar Trim por si tuviera espacios al final de la frase.

Código Delphi [-]
var
s:String;
begin
s:=edit1.text;
ShowMessage(strRscan(PChar(Trim(s)),' ') + 1);
end;

Un Saludo.