Problema con function Pos()

[roman]

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