procedure TForm1.FormActivate(Sender: TObject);
begin
//change pen color to red
Image1.Canvas.Pen.Color:= clRed;
//place pen at position (x = 5, Y = 5)
Image1.Canvas.MoveTo(5,5);
//draw line to X = 25, Y = 25
Image1.Canvas.LineTo(25,25);
//change pen color to yellow
Image1.Canvas.Pen.Color:= clYellow;
//place pen at position (x = 50, Y = 50)
Image1.Canvas.MoveTo(50,50);
//draw pixel by moving one x & y
Image1.Canvas.LineTo(51,51);
//draw a arrow
//change pen color to Green
Image1.Canvas.Pen.Color:= clGreen;
Image1.Canvas.MoveTo(51,51);
Image1.Canvas.LineTo(51,75);
Image1.Canvas.LineTo(55, 70);
Image1.Canvas.LineTo(51,75);
Image1.Canvas.LineTo(47, 70);
end;