function substring (seperti syntax sql server ) di delphi

Buat function substring (seperti syntax sql server ) di delphi :

uses StrUtils;

..

function substring(kata : string; mulai,panjang :integer):string;

..

function Tform1.substring(kata : string; mulai,panjang :integer):string;
var kn,kr : string;
pj: integer;
begin
pj:= length(kata);
kn := rightstr(kata,pj-(mulai-1));
kr := leftstr(kn,panjang);
result := kr;
end;

..

Substring(kata,mulai,panjang)
Substring('abcdefghijklmnop',8,2) ==> 'hijk'