Hi,
das geht so in der Art:
Zeichen := Copy(DeinString, Length(DeinString) - 2, 3);
Wenn es dir jedoch um die Ermittlung einer Dateiendung gehen sollte (ich tippe darauf), dann kann diese natürlich auch mehr oder weniger als 3 Zeichen lang sein. Ermitteln kannst du die dann mittels
ExtractFileExt.
Edit: 
Ich hatte "-2" statt "-4" geschrieben. Denkfehler.
Edit 2: Doch kein Denkfehler, hier kommt man ja ganz durcheinander. ^^