[AND_REY]

Вот пример загрузки картинки и рисования на ней,
если надо картинку именно с Image грузить то заменяем одну строчку

Код:

Bmp.Assign(Image1.Picture.Graphic);

и удаляем всё что связано с Jpeg;

Код:

Uses Jpeg;
Var Bmp: TBitMap;

procedure TForm1.Button1Click(Sender: TObject);
Var
 Jpg: TJpegImage;
 Y,x: Real;
begin
 Jpg:= TJpegImage.Create;
 Bmp:= TBitMap.Create;
 Jpg.LoadFromFile('C:\1.jpg');
 Bmp.Assign(Jpg);
 Jpg.Free;
 x:= -80;  // Начальный Х
 Y:= 0;
 Repeat
  Y:= 50*Sin(x/4); //50 - Амплитуда 4 - частота
  x:= x + 0.01; // Шаг изменения Х
  Bmp.Canvas.Pixels[100+Round(x),100+Round(Y)]:= clRed; //100,100         нач.координаты.
 Until x >= 80; //Конечный Х
  Form1.Repaint;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
 Form1.Canvas.Draw(0, 0, Bmp);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 Bmp.Free;
end;