اقتطاع شريط محرفي

أخي ياسر هناك في دلفي تابع جاهز لأداء ذلك لكن لم أعد أذكره على كل حال تستطيع استعمال الكود التالي

function charpos(c:char; s:string):integer;
var i:integer;
begin
result:=0;
for i:=1 to length(s) do
if s=c then result:=i;
end;

شكراً أخي الكريم لكن أنا أريد التابع

ولكم جزيل الشكر

أرجوا المساعدة

السلام عليكم ورحمة الله وبركاته

أخي الكريم yaser.oracle

إليك إسم الإقتران : AnsiPos

Syntax  : function AnsiPos(const Substr, S: string): Integer; 
Example: Procedure TForm1.Button1Click(Sender: TObject);
                Var
                    N : Integer;
                Begin
                      N := AnsiPos('o', 'yaser.oracle');
                End;

يتم تخزين نتيجة الإقتران في المتغيِّر N

أرجو أن أكون قد أجبت على سؤالك أخي الكريم

شكراَ أخي الكريم

جزاك الله عنا كل خير