[delphi.com.ar]

Agrego: ...solo existe esta función de Delphi 6 en adelante...

function RightStr(const AText: String; const ACount: Integer): string;
begin
  Result := Copy(AText, Length(AText) + 1 - ACount, ACount);
end;

Saludos!