M31, у тебя в программе циклы слишком специфичные выбраны - проще надо.
Итерации должны идти по x - от 0 до Width-1. Все остальные значения - вычисляемые.
Замечания:
1) приоритеты арифметических действий помнишь? Тогда зачем такая куча скобок?
2) именя большими буквами приняты для констант.
По сути вопроса. Догадатся не сложно: рисуешь линии и всего делов. Рисуй их до вывода графика.
Image1->Canvas->Line(0, 0, Image1->Width - 1, 0);
Image1->Canvas->Line(0, 0, 0, Image1->Height - 1);
Надеюсь, метод Line(x1,y1,x2,y2) существует? Если нет - подбери другой подходящий.
Для изменения масштабы введи множитель.