var
　I : Integer;
　S : string;
begin
　S := 'あいうえおABC1234.';
　I := Pos( 'ABC', S );
　ShowMessage( 'ABC は'+ IntToStr(I)+'文字目にあります');
end;

とか。