Скажите как узнать программно разрешение видео.

Посмотри в DRKB статью

Там в результате получаем структуру

TDSMediaInfo = record

   SurfaceDesc: TDDSurfaceDesc;

   Pitch: integer;

   PixelFormat: TPixelFormat;

   MediaLength: Int64;

   AvgTimePerFrame: Int64;

   FrameCount: integer;

   Width: integer;

   Height: integer;

   FileSize: Int64;

end;

Рискну предположить что тебе нужно Height * Width