大家帮忙看看这个函数怎么在程序里调用？(100分)

函数：
; MPGSnap: function(SnapName: PChar;
; ; SNAPPARAM: PSNAPPARAM = nil;
; ; ID: DWORD = 0): MY10MOONSMPG_API{$IFDEF WIN32} stdcall{$ENDIF};

第2个参数
type
; SNAPPARAM = record
; ; compress: COMPRESSMETHOD;
; ; resolution: RESOLUTION;
; end {_SNAPPARAM};
; PSNAPPARAM = ^SNAPPARAM;

type
; ComPressMethod = (
; ; MPEG1,
; ; CMJPEG,
; ; BMP);
type
; Resolution = (
; ; FULL,
; ; SIF,
; ; QSIF);////我就是不知道在程序里怎么把第2个参数传输进去。
我这样写是可以的
mpgsnap(pchar('c:/temp.jpg'),nil,0);不知道带参数怎么写？

var
; sp: SNAPPARAM;
begin
; sp.Compress := CMJPEG;
; sp.Resolution := FULL;
; MPGSnap('c:/Temp.jpg', Ptr(@sp), 0);
end;

var
; sp: PSNAPPARAM;
begin
; New(sp);
; try
; ; sp^.Compress := CMJPEG;
; ; sp^.Resolution := FULL;
; ; MPGSnap('C:/Test.jpg', sp);
; finally
; ; Dispose(sp);
; end;
end;

xianjun
不行呀！抓不到！

这样应该就可以了！
var
; sp: PSNAPPARAM;
begin
; New(sp);
; try
; ; sp^.ComPress := CMJPEG;
; ; sp^.Resolution := FULL;
; ; MPGSnap('C:/Test.jpg', sp, 0);
; finally
; ; Dispose(sp);
; end;
end;

多人接受答案了。