No sé si exista alguna función predefinida pero en todo caso es muy sencillo hacerse de una:
Código Delphi
[-]
function LastPos(S: String; Ch: Char): Integer;
var
I: Integer;
begin
Result := 0;
if S = '' then
exit;
for I := Length(S) downto 0 do
if S[i] = Ch then
begin
Result := I;
break;
end;
end;
// Saludos