TAnimateParams = record
  FileName: string;
  CommonAVI: TCommonAVI;
  ResHandle: THandle;
  ResName: string;
  ResId: Integer;
end;

struct TAnimateParams {
  AnsiString FileName;
  TCommonAVI CommonAVI;
  THandle ResHandle;
  AnsiString ResName;
  int ResId;
};