[jhonny]

Mira la función PosEx de la unidad StrUtils, seguramente es la que necesitas .

Código Delphi [-]
const
   Texto = 'ABCDEFGABC';
begin
  ShowMessage(IntToStr(PosEx('ABC', Texto, 8)));
end;