как рисовать график ф-ии с на компоненте TImage?

[Владимир1111]

Здравствуйте, научите пожалуйста как рисовать на image, я делаю
так

function Tform1.F(x:real; var Xmax,Xmin,Ymax,Ymin:real):real;
begin
F:=Sin(x);
Xmax:=4*pi;
Xmin:=0;
Ymax:=1;
Ymin:=-1;
end;

procedure TForm1.Button1Click(Sender: TObject);


var x,y:real;
PX,PY:longInt;
begin
for PX:=0 to Image1.Width do
begin
x:=Xmin+PX*(Xmax-Xmin)/Image1.Width;
y:=F(x,Xmax,Xmin,Ymax,Ymin);
PY:=trunc(Image1.Height-(y-Ymin)*Image1.height/(Ymax-Ymin));
image1.Canvas.Pixels[PX,PY]:=clBlack;
end;


end;

при запуске выскакивает ошибка can only modify an image if it containsin bitmap.
Что нужно сделать чтобы исправить ошибку?

[noxin]

если переменные Xmin,Xmax,Ymax,Ymin описаны, то ошибки никакой нет. Всё работает

[Олвин]

Эта ошибка возникает, если image contains a bitmap - если в image загружен рисунок. Это так? Нужно рисовать поверх рисунка? Есть способ, но это сложнее. Лучше рисовать в пустом image.
И еще на счет функции F(...). Пожалуйста не надо такого писать! Это ужасно! Переделайте. Если что непонятно - спрашивайте, объясню.

[Владимир1111]

Олвин, да, именно мне нужно рисовать на поверхности рисунка, в этом весь смысл. А как это сделать не знаю. Если сможете, то объясните как это сделать, буду очень благодарен.

[Олвин]

Хотя вообще-то это не многим сложнее. Нужно сначала загрузить картинку в другой image (можно его сделать невидимым - он будет хранилищем рисунка, назовем его ImgPic) а затем выполняем следующее:

Image.Canvas.Draw(0, 0, ImgPic.Picture.Graphic); // На нашем Image появляется картинка
Image.Canvas.LineTo(...);// Рисуем все, что хотим поверх картинки!