怎样将bmp图象转化为avi文件 ,我急需帮助？怎么没有人？ (100分)

我要写一个类似黑客的项目，其中要将客户端屏幕的操作记录下来，约1小时。
然后将其转化为avi文件存到server目录里；
其中怎样将一连串的bmp图像转化为avi文件。无法用程序实现。
记录屏幕操作的程序为：
procedure TForm1.Button1Click(Sender: TObject);
var winHWND, hCur:integer;
winDC:integer;
rect:TRect;
//AFormat : Word;
//AData,APalette : THandle;
pt:TPoint;
fBitmap:TBitmap;
begin
hCur := GetCursor(); // 获 得 光 标 句 柄
GetCursorPos(pt); // 记 录 光 标 位 置
winHWND := GetDesktopWindow();
winDC := GetDC(winHWND);
GetWindowRect(winHWND, rect);
fBitmap := TBitmap.create;
fBitmap.width := rect.right-rect.left;
fBitmap.height := rect.bottom-rect.top;
BitBlt(fBitmap.canvas.handle, 0, 0, fBitmap.width, fBitmap.height, winDC, 0, 0, SRCCOPY);
DrawIcon(fBitmap.canvas.handle, pt.x, pt.y, hCur); // 画 光 标
ReleaseDC(winHWND, winDC);
Image1.Picture.Bitmap.Assign(fBitmap);
fBitmap.Free;
end;
bmp转化avi的程序为（但有错）：
procedure TForm1.Button2Click(Sender: TObject);
var
s: Tbitmap;
begin
s := Tbitmap.Create;
s.LoadFromFile('d:/1.bmp');
AviWriter1.Bitmaps.Add(@s);
s.LoadFromFile('d:/2.bmp');
AviWriter1.Bitmaps.Add(@s);
AviWriter1.Write;
end;
我在http://www.vclxx.org/DELPHI/D32FREE/AVIWRITER.ZIP下载那个控件不能使用。
谁能将bmp to avi的程序完成，多谢了。
我用delphi6＋win98

先把它转换成为gif文件,然后再用工具软件转换成为.avi文件

怎样转化为gif文件？

怎样将连续的一串bmp转化为一个gif文件？用程序实现？

http://www.efg2.com/Lab/Library/Delphi/Graphics/BMP.htm

用图像转换软件转换。soft.269.net里有。。。

关注！

我目前可以转化gif，avi文件我在网上下载了一个控件。
http://www.melander.dk/delphi/gifimage/

但现在的问题是图片压缩，（将客户端屏幕的操作记录下来，约1小时）怎样压缩？
包含图象清晰度，大小等动态调整
那位大侠有代码提供，另加50分。
我需要帮助！

你需要学习Video For window了，学完后，你就知道怎么实现了！

多人接受答案了。