TIdFtpServer.OnStoreFile - Закрыть файл при обрыве соединения..

[Stilet]

Всем доброго. Нарвался сегодня на некоторую недоработку в своей программе.
Есть IdFTPServer, который сохраняет файлы примерно так:

procedure TForm1.FtpServerStoreFile(ASender: TIdFTPServerContext;
  const AFileName: string; AAppend: Boolean; var VStream: TStream);
begin
     if AAppend then begin
      VStream:=TFileStream.Create(AFileName,fmOpenReadWrite);
      VStream.Seek(0,soEnd);
     end else begin
      VStream:=TFileStream.Create(AFileName,fmCreate);
     end;

 end;

В общем штатный хелповский код, ничего особенного.
Проблема в том что если на линии происходит обрыв связи VStream не освобождается, и заливамый файл блокируется, пока программа запущена.
Сегодня так получилось что нужно было заливать при плохом трафике, который постоянно обрывался, и сервер после переконнекта давал ошибку "файл занят". Закрытие сервера позволяло файл удалить.

Отсюда встала задача: При обрыве соединения VStream освобождать, чтоб файл закрывался корректно.

Вопрос: Как рассказать Индейке что файл нужно закрывать в любом случае, докачался он или нет?

[Slym]

где-то штатно должен ерор вылезти где концы и надо резать