Extraer caracteres de una cadena

[[Lepe]]

Si tu version de delphi no las tiene, puedes crearlas tu y ponerlas en una unidad aparte:

Código Delphi [-]
function RightStr(const s:string;const count:integer):String;
begin
   Result := Copy(s, Length(s)+1- count, count);
end;

Como está basado en la función Copy, no produce error, si vas a copiar más caracteres de los que hay, simplemente copia los que se permite.