아래 17987의 질문을 이리 저리 해결하다보니 다음과 같은 소스에서 Warning 메세지가 4개 정도 뜨더라구요.

소스는 아래와 같습니다. 아래 소스는 폴더를 복사하는 부분입니다.

procedure Tform1.CopyFolder(s1: String);
var
F : TShFileOpStruct;
CopyPath : String;

begin
CopyPath := 'C:\\Result\';
F.Wnd := Handle; // if 0, then no parent and can task switch away
F.wFunc := FO_COPY;
F.pFrom := PChar(s1); <-- 이곳
F.pTo := PChar(CopyPath); <-- 이곳
F.fFlags := FOF_ALLOWUNDO or FOF_RENAMEONCOLLISION;
if ShFileOperation(F) <> 0 then ShowMessage('Copy Failed')
else listbox1.Items.Add(s1 + ' 복사를 성공하였습니다.');
end;

위의 두 곳에서
'[Warning] unit.pas : Unsafe type 'pFrom : PAnsiChar'
'[Warning] Unit1.pas(92): Unsafe type 'PChar'
'[Warning] Unit1.pas(93): Unsafe type 'pTo: PAnsiChar'
'[Warning] Unit1.pas(93): Unsafe type 'PChar''
라는 네개의 메세지가 나오더라구요.
이 메세지를 없앨 수 있는 방법이 없을까요?

아래의 17987의 질문에 나온 소스에서 s1을 'C:\\Driver\Video\NVIDIA\V4467 '와 같이 하면 압축이 처음부터 아무런 문제가 없이 진행됩니다.

고수님들 부탁 좀 드립니다.
그럼 이만..