如何将BMP图象的每个象素读入内存变量中去？(100分)

我是个DELPHI菜鸟，这个问题关系到我的毕业设计，请大家帮忙
我需要实现的是利用GetMem把图象的每个象素读入内存，然后进行二值化
可是具体的语句我不知道，请哪位好心人帮我具体写一下
假设
procedure TForm1.BitBtn1Click(Sender: TObject);
var
FileName: String;
Buffer: PByteArray;
x,y: integer;
begin

OpenDialog1.Execute;
FileName := OpenDialog1.FileName;
if FileExists(FileName) then
begin
Image1.Picture.LoadFromFile(FileName);
end;
Width := Image1.Picture.Width;
Height := Image1.Picture.Height;
GetMem(Buffer,Width*Height);

接下来需要将每个象素赋给内存变量，我该怎么写？
谢谢指教

我做过这种程序，留下地址

谢谢，我的地址是
nightnoise@citiz.net
或nightnoise@etang.com