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.