文字列の比較のやり方を教えて下さい。

例えば

s1 := 'abc';
s2 := '123abc456';

if compstr(s1,s2) then begin//s2にs1の内容が含まれていれば通る
//処理
end;

のような事が出来るcompstr関数はありませんか？