Программа для нарезки картинок

[Deamonig]

Нужна помощь в создании программы. У нас есть рисунок 1.bmp размером 700х500. Его нужно разрезать на 35 маленьких размерами 100х100 и сохранить с названиями 1-1.bmp, 1-2.bmp и т. д. Собственно не знаю каким способом его разрезать вот то что смог написать:

var Pict1,Pict2:TbitMap;
i:integer;
begin
Pict1:=graphics.TBitmap.Create;
Pict1.loadfromfile(GetCurrentDir+'\1.bmp');


....

i:=i+1; {после создания русунка 100х100}
Pict2.SaveToFile(GetCurrentDir+'\1-'+IntToStr(i)+'.bmp');
...

end;

[raxp]

функция CopyRect... много раз обсуждалась на форуме http://www.programmersforum.ru/showt...light=copyrect

[Deamonig]

Спасиб, помогло