مشکل در تغییر نام فایل

[Mask]

با سلام
با کد زیر فایلمو تغییر نام میدم.نمیدونم چرا یه چند باری درست کار میکنه و بعدش یهو قاط میزنه و خطای زیر رو میده.؟


procedure TForm1.Button1Click(Sender: TObject);
var
s:file;
begin
assignfile(s,Edit1.Text);
rename(s,changefileext(Edit1.Text,'.'+'dll'));
end;

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EInOutError with message 'I/O error 183'.
---------------------------
Break Continue Help
---------------------------

[سعید صابری]

چرا از RenameFile() استفاده نمی کنی؟

اون به خاطر این نیست که فایلو نبستی؟

[Felony]

از تابع RenameFile استفاده کن .