var
Bitmap: TBitmap; { temporary variable to hold the bitmap }
begin
Bitmap := TBitmap.Create; { construct the bitmap object }
Bitmap.Width := 200; { assign the initial width... }
Bitmap.Height := 200; { ...and the initial height }
Image.Picture.Graphic := Bitmap; { assign the bitmap to the image control }
end;