Вот примерно так
Uses menu32, font32;
Var wi, hi, key: integer;
fon,m: image;
begin
wi:=GetWidth; hi:=GetHeight;
fon:=LoadImage('/fon.png'); // Загружаем фон
m:=CreateCursor(wi-10, 192, 1259339775);// Создаем дополнительный фон
// ------------------------ Установка шрифтов --------------------------------
font32.init(2); // Всего 2 шрифта
Font(0); LoadFont('Verdana_10'); // Основной шрифт
Font(1); LoadFont('Verdana_10b'); // Такой же шрифт, но утолщенный и белый (для выделенного пункта)
// ------------------------ Установка меню --------------------------------
menu32.init; // инициализация меню
DrawImage(fon, wi/2 - 120, hi/2 - 160);DrawImage(m,5,5);//рисуем фон
LoadCursor(CreateCursor(GetWidth-10, 16, 4278190250)); // Создаем курсор
SetMenuWindow(5, 5, wi-5, 197); // Задаем окно, в котором будет отображаться меню
MenuFonts(0, 1); // Основной и курсорный шрифты
// добавляем пункты меню
AddItem(LoadImage('/i2.png'), '1 пункт');
AddItem(LoadImage('/i5.png'), '2 пункт');
AddItem(LoadImage('/i1.png'), '3 пункт');
AddItem(LoadImage('/exit.png'), 'Выход');
DrawMenu; Repaint;
repeat
key:=KeyToAction(GetKeyPressed); Delay(30);
if key = GA_UP then begin CursorUp; DrawMenu; Repaint; Delay(250); end;//курсор в верх
if key = GA_DOWN then begin CursorDown; DrawMenu; Repaint; Delay(250); end;//курсор в низ
if key = GA_FIRE then
until false;
end.