Помогите разобраться, ошибка при считывании из ini файла

[XATAB]

Люди что можно сделать в такой ситуации.

 
procedure TForm1.Button4Click(Sender: TObject);
begin
  TMP.WriteInteger('Amount','Amount',Kol);
  TMP.Free ;
  Kol := 0;
  TMP := TIniFile.Create(temp);
  Kol := TMP.ReadInteger('Amount','Amount',0);
  for i:=1 to Kol do
    begin
      Path:=FileDir+inttostr(i);
      P := TMP.ReadString('CopyFiles',IntToStr(i),'');
     CopyFile(P,'C:\1.txt');
    end;
  TMP.Free ;
end;

Считываю из INI файла строку потом кидаю в CopyFile а он мне ошибку

[Ошибка] uInstallShield.pas(213): Incompatible types: 'String' and 'PAnsiChar'

[mihali4]

Когда-нибудь хэлпы научимся читать?

The CopyFile function copies an existing file to a new file.

BOOL CopyFile(

LPCTSTR lpExistingFileName, // pointer to name of an existing file
LPCTSTR lpNewFileName, // pointer to filename to copy to
BOOL bFailIfExists // flag for operation if file exists
);

Черным по-белому написано, что параметры у этой функции должны иметь тип не String, а PChar...
Об этом же однозначно сказано в сообщении об ошибке!

А где используется значение

Path:=FileDir+inttostr(i);

Зачем оно в этой процедуре?

[XATAB]

Сначало было так

CopyFile(P,Path);

но там выдавал ту же ошибку

[Lynx]

Сообщение от XATAB

CopyFile(P,'C:\1.txt');

попробуй

CopyFile(PChar(P),'C:\1.txt');

[XATAB]

Огромное спасибо !!!