Guten Morgen,
prinzipiel sollte es so gehen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
x : Integer;
begin
for x := 0 to image1.Width do
begin
Image1.Canvas.LineTo(x,Image1.Height-trunc((sqr(x-image1.Width div 2))/10));
end;
end;
Du mußt die Wertebereiche nur noch anpassen.
[edit] prozedur getauscht.
Grüße
Klaus