Problem beim Verknüpfung erstellen

[Sir K]

Hallo Leute!
ich benutze die untere function von Delphi-Treff.de um eine Verknüpfung anzulegen...

Delphi-Quellcode:

function CreateLink(const AFilename, ALNKFilename, ADescription: string) : Boolean; 
var 
  psl : IShellLink; 
  ppf : IPersistFile; 
  wsz : PWideChar; 
begin 
  result:=false; 
  if SUCCEEDED(CoCreateInstance(CLSID_ShellLink, nil, 
  CLSCTX_inPROC_SERVER, IID_IShellLinkA, psl)) then 
  begin 
    psl.SetPath(PChar(AFilename)); 
    psl.SetDescription(PChar(ADescription)); 
    psl.SetWorkingDirectory(PChar(ExtractFilePath(AFilename)) ;); 
    if SUCCEEDED(psl.QueryInterface(IPersistFile, ppf)) then 
    begin 
      GetMem(wsz, MAX_PATH*2); 
      try 
        MultiByteToWideChar(CP_ACP, 0, PChar(ALNKFilename), -1, wsz, MAX_PATH); 
        ppf.Save(wsz, true); 
        result:=true; 
      finally 
        FreeMem(wsz, MAX_PATH*2); 
      end; 
    end; 
  end; 
end;

Nur hab ich jetzt das Problem dass ich in einer Zeile beim compilieren die Meldung erhalte "Inkompatible Datentypen 'Char' und 'AnsiChar'". Kann mir einer sagen obs dafür ne funktion wie z.b IntToStr() oder StrToDate... usw gibt?
MultiByteToWideChar(CP_ACP, 0, PChar(ALNKFilename), -1, wsz, MAX_PATH); Gruß
Sir K