procedure TForm1.Button1Click (Senter: TObject);
begin
Label1.Caption:= 'AHOJ';
end;
Image1.Canvas.Pen.Color:= clYellow;
Image1.Canvas.Brush.Color:= clGreen;
Image1.Canvas.Rectangle:= (50, 80, 100, 110);
Image1.Canvas.Pen.Color:= clBlue;
Image1.Canvas.Brush.Color:= clRed;
Image1.Canvas.Pen.Width:= 5;
Image1.Canvas.Ellipse:= (10, 20, 50, 60);
Image1.Canvas.Font.Color := clRed;
Image1.Canvas.Pen.Color := clYellow;
Image1.Canvas.Line (50, 10, 10, 10);
Image1.Canvas.MoveTo (50, 100);
Image1.Canvas.LineTo (10, 100);
Image1.Canvas.LineTo (50, 10);