ОЧЕНЬ ВАЖНО, ПОМОГИТЕ

[VVVadim]

Хочу чтобы моя прога при запуске копировалась в системный каталог. Но функция GetSystemDirectory возвращает PChar, а функция CopyFile в качестве параметра требует string. Помогите преобразовать PChar в string.

[Romanus]

var
a:Pchar;
b:string;
begin
a:='burumburum';
b:=a;
end;

А так не пробовал

[Virtson]

s := String(Pchar) ..