Delphi - kopírovnání

[Domi]

procedure TForm1.FileCopy(ZSoub, CSoub: string);
var
ZdrojovySoub, CilovySoub: file;
Precteno, Zapsano: Integer;
Buffer: array[1..2048] of Byte;
begin
AssignFile(ZdrojovySoub, ZSoub);
AssignFile(CilovySoub, CSoub);
try
Reset(ZdrojovySoub, 1);
Rewrite(CilovySoub, 1);
repeat
BlockRead(ZdrojovySoub, Buffer, SizeOf(Buffer), Precteno);
BlockWrite(CilovySoub, Buffer, Precteno, Zapsano);
until (Precteno = 0) or (Zapsano <> Precteno);
finally
CloseFile(ZdrojovySoub);
CloseFile(CilovySoub);
end;
end;

mam takovouto proceduru a potrebuji aby programek ve kterem tato procedura je, se sam nakopiroval na nejakou adresu...

cesty prirazuji takto:
Zsoub:=(application.exename);
Csoub:=('cesta');
kdyz Zsoub necham priradit tak jako ted tak mi napise chybu:
Project ... raised exception class EInOutError with message 'I/O error 32'. Process stopped. Use Run or Step to continue.
A ukazuje na Reset(ZdrojovySoub, ZSoub);
Prosim poradte. Diky

[MEluZíNa]

Problem bude asi v tom ze delphi pouzivaj nejakej exclusiveread pri reset(file). Takze imho reseni je takove ze zavolas nejakou winapi ktera ti otevre soubor pro "nonexclusiveread".

[Edit]
Zkus pred resetem, nastavit:

FileMode := fmOpenRead;

[Domi]

dik moc. funguje to

[Helium]

Problem bude asi v tom ze delphi pouzivaj nejakej exclusiveread pri reset(file). Takze imho reseni je takove ze zavolas nejakou winapi ktera ti otevre soubor pro "nonexclusiveread".

[Edit]
Zkus pred resetem, nastavit:

FileMode := fmOpenRead;

Kdyz jsme u toho jak podobneho efektu docilit pri cteni TXT souboru (jen cist)
pres:

...strings.LoadFromFile(soubor.TXT)

??

[MEluZíNa]

Nemam delphi, urcite o tom neco bude v helpu, pri nejhorsim overridni metodu k obrazu svemu