В ListBox выделить строку и кнопками двигать её вверх и вниз.
Add(MainForm,2953706,84,91)
{
Width=152
Height=183
Position=1
}
Add(ListBox,16467245,133,84)
{
Left=2
Top=15
Width=96
Height=120
Strings=#8:Строка 0|8:Строка 1|8:Строка 2|8:Строка 3|8:Строка 4|8:Строка 5|
Point(String)
Point(Index)
}
Add(Button,8235946,203,77)
{
Left=105
Top=35
Width=20
Height=30
Font=[Webdings,10,1,0,2]
Caption="5"
}
Add(Button,3120776,203,113)
{
Left=105
Top=65
Width=20
Height=30
Font=[Webdings,10,1,0,2]
Caption="6"
}
------------ Дoбавленo в 10.41:
За самое оригинальное решение награда 50h