[eko]

Помогите построить график функции в Delphi!!!*(PaintBox)
X меняется в диапозоне от -10 до +5
если х<0,y=x в квадрате
если x>=0,y=x в кубе

[PhoeniX]

интересует рассчёт y(x), или само построение?

[eko]

Построение:
procedure TForm1.Button1Click(Sender: TObject);
var x,y : Integer;
begin
......
end;

[PhoeniX]

А что не понятно?
Если тебя интересует не "помогите", а "сделайте за меня" - тебе в раздел работа.
Копать тебе в сторону циклов, и к PaintBox.Canvas.
Два полезных метода Canvas'a, которыми тебе надо пользоваться:
MoveTo(x,y:integer) - перемещает "курсор" на позицию X-Y
LineTo(x,y:integer) - рисует линию от текущей позиции курсора к координатам X-Y