Linien auf vorhandenes Bitmap In TImage zeichnen

[Elicia]

Grüß Euch,

in eine Image-Komponente habe ich ein bmp geladen - darauf versuche ich z.B. Linien zu zeichnen. Ich plage mich schon seit Tagen damit herum - die Linien werden einfach nicht angezeigt.
Mein momentaner Ansatz (auszugsweise):

Delphi-Quellcode:

with Image1.Picture.Bitmap.Canvas do
begin
  Pen.Color := col;
  Pen.Width := 1;
  Pen.Style := psSolid;
  Brush.Style := bsClear;
end;
for i := 1 to cs - 1 do
  with Image1.Picture.Bitmap.Canvas do
  begin
    MoveTo(mp + i*xspace,0);
    LineTo(mp + i*xspace,pbh);
  end;

hab's auch schon mit
Image1.Canvas probiert
eine Speicherbitmap erstellt und in dieser zeichnen lassen, danach ins Image kopiert
eine PaintBox darübergelegt und wollte in der zeichnen - ich krieg's einfach nicht hin , daß die Linien gezeichnet und angezeigt werden.
Hoffe auf Eure Hilfe und bedanke mich schon mal dafür!
MfG
Elicia