Bitmapa na mniejsze kawałki

zrobiłem kodzik taki aby z exportowanej listy bitmap w delphi (imagelist->export) robiło małe bitmapy:

procedure TForm1.Button1Click(Sender: TObject);
var
path: String;
BitmapIn, BitmapOut: TBitmap;
I: Integer;
begin
if opendialog1.Execute then
begin
Edit1.Text:=OpenDialog1.FileName;
Path:=ExtractFilePath(OpenDialog1.FileName);
BitmapIn:=TBitmap.Create;
BitmapIn.LoadFromFile(OpenDialog1.FileName);
BitmapOut:=TBitmap.Create;
BitmapOut.Height:=BitMapIn.Height;
BitMapOut.Width:=BitmapOut.Height;//square bitmap
For I:=1 to (BitmapIn.Width div BitmapIn.Height) do
begin
BitmapIn.Canvas.CopyRect(Rect(0,16,16,0),BitMapOut.Canvas,Rect((I-1)16,16,I16,0));
BitMapOut.SaveToFile(Path+Format('Extracted %d.bmp',[I]));
end;
BitMapOut.Free;
BitmapIn.Free
end;
end;

działa niby pięknie, kompiluje się ale wszystkie wyexportowane bitmaby są białe, a w orginale nic się nie dzieje(żanych zmian), gdzie zkopałem i co poprawić aby działało??

dzienki za pomoc :-P wystarczyło linijkę:
BitmapIn.Canvas.CopyRect(Rect(0,16,16,0),BitMapOut.Canvas,Rect((I-1)16,16,I16,0));

zaminić na:
BitmapOut.Canvas.CopyRect(Rect(0,16,16,0),BitMapIn.Canvas,Rect((I-1)16,16,I16,0));

i działa