Lamento darte una mala noticia ixMike, acabas de reinventar la rueda

. Existe la función
LeftStr y
RightStr, ambas declaras en la unit StrUtils

.
Al menos desde la versión 6 están disponibles, desconozco si están en la 4 o 3, pero en la 7 seguro.
Saludos,