再问一段代码!

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的意思.
谢谢!