Ошибка при копировании файла (*.mpg)

[Marsel737]

Всем доброго времени суток.

Возникла необходимость реализовать копирование *.mpg файлов в каталог с программой, для этого воспользовался следующим кодом:

procedure TForm2.Button2Click(Sender: TObject);
var 
  s,t: TFileStream;
begin
  Inc(MyGlobalVidVar);
  s:=TFileStream.Create(OpenDialog.FileName,fmOpenRead);
  try
    t:=TFileStream.Create('Video/Vid'+IntToStr(MyGlobalVidVar)+.mpg'',fmOpenWrite or fmCreate);
    try
      t.CopyFrom(s,s.Size);
    finally
      t.Free;  
    end;
  finally
    s.Free;
  end;
end

Испробывал на текстовом файле и нормально скопировалось, а когда решил копировать видео сразу выдаёт ошибку "Системе не удаётся найти указанный путь"

Не пойму в чём ту дело, может кто сталкивался с подобной проблемой?

[Neeter]

Ну и проверьте сначала путь на правильность:

ShowMessage('Video/Vid'+IntToStr(MyGlobalVidVar)+'.mpg')

Или бряком MyGlobalVidVar проверьте.