چجوری میتونم تشخیص بدم رشته 1 حاوی رشته 2 هست یا نه؟

سلام دوستان
ببخشین من یک سوال دارم
چجوری میتونم تشخیص بدم که رشته 1؛ شامل رشته 2 هست یا نه؟
ممنون

شمارشته هاتون رو می ریزید داخل دوتا متغییر بعد بایک شرط چک میکنید که محتواشون برابرند یانه

var

  S1, S2: String;

begin

  S1:= 'This is a sample text';

  S2:= 'a sample';

  if Pos(S2, S1) <> 0 then

    ShowMessage('S1 contain S2');

end;

از جوابتون خیلی ممنونم .کمک بزرگی بود.
منتها یک مشکلی که هست اینه که S1 یک رشته نیست بلکه یک Memo
هست که چون S1حداکثر تا 256 کاراکتر قبول میکنه نمیشه از نوع رشته در نظر گرفت.
چکار میتونم انجام بدهم؟

اون ShortString هست که محدودیت 255 کاراکتری داره ، String مدودیت نداره ، در هر صورت :

var

  S2: String; 

begin

  S2:= 'a sample'; 

  if Pos(S2, Memo1.Text) <> 0 then

    ShowMessage('S1 contain S2'); 

end;

درست شد
خیلی ممنون و متشکرم