Три ошибки при компиляции

[Frioman]

Не буду ходить вокруг до около, вообщем при компиляции столкнулся с 3-мя ошибками - и не могу не как их исправить, так как исходник скачал с шары.

1-ая



2-ая



3-яя



Коды ошибок:

procedure RunApp(Path: string);
var
  p1, p2: array[0..100] of Char;
  w1: cardinal;
begin
  ChDir(ExtractFilePath(Path));
  StrPcopy(p1, ExtractFilePath(Path));
  if GetModuleHandle(p1) = 0 then
  begin
    StrPcopy(p2, Path);
    w1 := WinExec(p2, SW_Restore);
  end;
end;

--------------------------------------------------

implementation
uses UnitMain, Misc, BZip2, md5, LstFile;

[WinCoder]

1 - Если условие DirectoryExists не выполнено, что вернёт функция?
2 - Неверный тип данных передаёте в процедуру. Попробуйте передать PAnsiChar(p2) вместо p2.
3 - Скорее всего пропадёт сама, когда исправите Misc

[Fahman]