1object FMain: TFMain
2  Left = 454
3  Height = 289
4  Top = 226
5  Width = 430
6  Caption = 'Test CreateBitmap'
7  OnPaint = FormPaint
8  LCLVersion = '1.6.0.4'
9end
10