Написать код в delphi) есть 4 кнопки и каждая двигает метку (вправо,влево,вверх,вниз),но чтобы метка не выходила за форму

По-моему так. если ещё что-нибудь дополнить, написать - пиши uses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; type tform1 = class(tform) button1: tbutton; button2: tbutton; button3: tbutton; button4: tbutton; procedure button1click(sender: tobject); procedure button2click(sender: tobject); procedure button3click(sender: tobject); procedure button4click(sender: tobject); procedure formcreate(sender: tobject); private { private declarations } public { public declarations } end; var form1: tform1; implementation {$r *.dfm} procedure tform1.button1click(sender: tobject); begin top: =0; end; procedure tform1.button2click(sender: tobject); begin left: =0; end; procedure tform1.button3click(sender: tobject); begin end; procedure tform1.button4click(sender: tobject); begin end; procedure tform1.formcreate(sender: tobject); begin end; end.

Сначала находим ткань на наволочки.1.25*5=6.25 10.55-6.55=4.3 4.3/2=2.15