procedure tform1.grapf;
var
x,y: Integer;
// y,a: Double;
begin
Image1.Picture.Bitmap := TBitmap.Create;
Image1.Picture.Bitmap.Width := Image1.Width;
Image1.Picture.Bitmap.Height := Image1.Height; {These three lines could
go in Form1.Create instead}
for x := 0 to 75 do begin
for y:= 0 to 10 do
Image1.Picture.Bitmap.Canvas.Pixels[x, y] := clblue;
end;
end;
procedure TForm1.Button1Click(Sender: TObject); "
begin
grapf
end;