Лишний параметр

[HTTqp]

Все спасибо решил проблему

[Alter]

CopyFile - не называйте никогда свои функции/процедуры абсолютно так же как и существующие.

Использую это(но вообще использую свой функционально расширенный класс PathDec.zip)

function EnvironmentExpandStr(EnvStr: string): string;
var
 aBuffer :array[0..MAX_PATH]of char;
begin // конвертер строк с переменными: "%COMPUTERNAME% - %USERNAME%"
 ZeroMemory(@aBuffer, Length(aBuffer));
 ExpandEnvironmentStrings(PChar(EnvStr), aBuffer, MAX_PATH);
 Result := string(aBuffer);
end;

Использование(пример):

 Edit2.Text := EnvironmentExpandStr('%AppData%\Project1.exe');