再问一段代码!解决方案

再问一段代码!
begin
  
  if strlen(pchar(Str)) >= 3 do
  begin
  Str[1] := '#'; 
  Result := Result + Chr(HexToInt(Copy(Str, 1, 3)));
  Delete(Str, 1, 3);
  end;
end;
请好心人帮忙写下注释.
再解释下那copy的意思.
谢谢!

[解决办法]
function Copy(str:string;S; Index, Count: Integer): string;
str:源字符串
S:开始的位置
Count:复制的字符数
返回值：从S开始的Count个字符组成的字符串