[stil]

Код:

var rec1,rec2: trect;a:integer;
begin
rec1:=Bounds(0,0,Image1.Width,Image1.Height);
rec2:=Bounds(0,0,Image1.Width,Image1.Height);
a:=round(Image1.Width/Image1.Height);
InflateRect(rec1,-10*a,-10);
Image1.Canvas.CopyRect(rec2,Image1.Canvas,rec1);

можно вот так. Кричать и ругаться совсем не обязательно. я сам 1-2 дня ответа на вопрос ждал.