jak zczytac bitmape z pliku do pamieci??

Jak zczytac z pliku *.bmp (np czarny kwadrat na bialym tle) pixel po pixelu do pamieci??

var
bmp,output : tbitmap;
s : string;
kwadrat : trect;
left,top,right,bottom : integer;
i,i2 : integer;
begin
s := 'C:\Plik.bmp';
bmp:= tbitmap.create;
output := tbitmap.create;
bmp.LoadFromFile(s);
output.Width := right - left;
output.height := bottom - top;
for i:=left to right do
begin
for i2:=top to bottom do
begin
output.Canvas.Pixels[i,i2] := bmp.Canvas.Pixels[i,i2];
end;
end;
bmp.Free;
output.free;
//jak robisz output jako TBitmap i go tworzysz to to jest właśnie w pamięci :)
end;

nie wiem czy zadziała bo nie testowałem