тебе суда
http://forum.boolean.name/showthread.php?t=7816
насчет ошибки в процедуре хз с эндами нахимичил, вот подправил:
procedure xz;
begin
if(x>50)and(y>50)and(x<60)and(y<60)then
begin
setcolor(255,255,255);
fillRoundRect(140,25,91,20,5,5);//закрашенный прямоугольник с куглыми углами
SetFont(FONT_FACE_SYSTEM, FONT_STYLE_PLAIN, FONT_SIZE_SMALL);//шрифт
setcolor(0,0,0);
drawtext('Система:ReVol',142,25);//х,у прямоугольника в котором будет текст
end;
if(x>78)and(y>90)and(x<88)and(y<100)then
begin
setcolor(255,255,255);
fillroundrect(140,25,91,20,5,5);
SetFont(FONT_FACE_SYSTEM, FONT_STYLE_PLAIN, FONT_SIZE_SMALL);//шрифт
setcolor(0,0,0);
drawtext('Система:MiTer',142,25);
end;
end;