Сохранение файла на IdFtpDerver

[posdnyaa]

Здравствуйте
Я работаю с компонентом от Indy IdFTPServer. При обработке события StoreFile для сохранения файла используется такой код (взятый из примера):

procedure TForm1.IdFTPServer1StoreFile(ASender: TIdFTPServerContext;
  const AFileName: string; AAppend: Boolean; var VStream: TStream);
begin
  if not Aappend then
   VStream := TFileStream.Create(ReplaceChars(AppDir+AFileName),fmCreate)
  else
   VStream := TFileStream.Create(ReplaceChars(AppDir+AFileName),fmOpenWrite);
end;

Проблема вот в чем. Работать с новым файлом невозможно пока процесс его создания и заполнения не закончится. Это естественно. А как узнать что файл готов к каким либо действиям с ним, т.е. как узнать что его создание завершено?
Спасибо

[Jeni]

Можно попытаться открыть его в конструкции try...except - если ошибка случилась, значит файл "занят". Лучше всего такую проверку сделать в отдельной подпрограмме, чтобы, в случае возникновения ошибки, не прервать основной код.