Encontrar ultima ocurrencia de subcadena

[roman]

Empezado por tcp_ip_es

¿Desde qué versión de delphi se incluye la libreria StrUtils?

Creo que desde la versión 6. Pero con todo gusto te regalo esta función

Código Delphi [-]
function ReverseString(S: String): String;
var
  I: Integer;

begin
  Result := '';

  for I := 1 to Length(S) do
    Result := S[i] + Result;
end;

// Saludos