값을 확인 할 수 가 없어서 잘은 모르겠지만
아래와 같이 하면 됩니다.
============================================================
function TForm1.get_crc(ptr : pChar; count : pInteger) : Integer;
var
  crc, i : Integer;
begin
  while ( count^ >= 0 ) do
    begin
      crc := 0;
      crc := crc xor (integer(ptr^) shl 8);

      for i:=1 to 8 do
        begin
          if (crc and $8000) <> 0 then
            crc := (crc shl 1) xor $1021
          else
            crc := (crc shl 1);
        end;
      dec(count^);
    end;
  result := (crc and $FFFF);
end;

답변에 감사드립니다..

답변주신 내용에서 한가지 빠진 부분이 있어서 추가 질문을 드립니다..

C함수 : crc = crc ^ (int) *ptr++ << 8;
델파이 : crc := crc xor (integer(ptr^) shl 8);

*ptr++ 은 어떻게 처리를 해야 하는지 모르겠습니다..

흐흐 그걸 빼 놓았네요..

아래에 추가 했습니다...
간단하게 포인터 증가는 inc(포인터명) 이걸 씁니다.

============================================================
function TForm1.get_crc(ptr : pChar; count : pInteger) : Integer;
var
  crc, i : Integer;
begin
   crc := 0; // 이것도 위치가 잘못된거 같네요.. 생각해 보니 ㅠ_ㅠ

  while ( count^ >= 0 ) do
    begin
      crc := crc xor (integer(ptr^) shl 8);

      inc(ptr); // 추가 한거 ^^

     for i:=1 to 8 do
        begin
          if (crc and $8000) <> 0 then
            crc := (crc shl 1) xor $1021
          else
            crc := (crc shl 1);
        end;
      dec(count^);
    end;
  result := (crc and $FFFF);
end;

감사합니다..
해결되었습니다..
많은 도움이 되었습니다..