How Do I Add A Picture In Fourms?

Once I Make The Fourm Then Parse It With A DFM Fourm Parser How Do I Change It To Add The Picture In The Fourm? So It Appers On Da Fourm When You Start The Script???

 

Stop Talking Like This, And the Word Is Form not Forum. Thanks.

This was posted by Sky Scripter on SRL Forums, good example.

Code:

Program New;
 
Const
  Xpos = 10;
  YPos = 10;
  Width = 200;
  Height = 200;
 
 
Var
   MainForm : TFORM;
   BitMap: Integer;
 
 
Procedure LoadTheBitmap;
begin
  BitMap := BitmapFromString(30, 29, 'z78DABD97DD9' +
       '2A4200C465F498190F4A58ABEFF232DCDC745A8888BB6BB50959A' +
       '9A9A1E4F4E7FFC2893FC38CB98EF5699FEDFB44FE7C421CF83234' +
       '7995958C4F3C28B30EF9CE423131FB28A935992F83C770912FE35' +
       '7F43E8E31A57A698E2C61F9E79E2955D9E969C78E3B5D60EFF679' +
       '228F12D7EFD7F22D34147DC628881A7FC10A9CC1C8FB85772CBAC' +
       '2BCC6B7E43FEF192C733727C8A123171F4B4D1DA30C3B3B60D72D' +
       '8D6CE75B5FE3579498B76EE2797E70DDA48134D71A6859648B453' +
       '8A9FE8F2DC631ED5B365D615E67572543D49BBCAB926BFC13C872' +
       '52C24E4C855CF602E9E1B72CDAFBB18E905E6C1AF73AE56E8B56D' +
       'FC4DD8BE500D336C231BA8E0375D9C7C0BB60BDB4B494E436EF69' +
       '6BF303B9F7C0A7BF804AE09816754E404F5972E6C2F9A5CE5BC67' +
       'BBFE7EF3EC395098F204B30F2924ACC4BA1EE11C75BC1774D1CB9' +
       '5EE486706EBB438B7B62B33F929CFC32F7EC92DFBE0910D5AE93B' +
       '507FE7EF74517BD1E426339A5C33D76C20D5F05C12522BBAF8D7B' +
       'D80DF6446E7A4FE2CFE3BB467AC4454F08F7431CEDF49514D8B59' +
       'A196D9C9F74320D72BB166FB9A7FDCFFB5F942DE4BF809737079D' +
       '495A81252EB08B9E67F961CCDACEF33C5B6659E8F39CDA9612E09' +
       'B1E40DFF786646CC17DBBD5BC109F332E723C86D6E714B4D35F63' +
       'D906BFEF1CC8C9B57B64F988BED13669AF3689861BB477E97FFD2' +
       '7C73B7C14ABC64D63B9E26AFCC9AFC5D7ECB5C6CDBB346D3F6986' +
       'BB68BEDC6F908FFEFE4E6C4B93EC13573DDFDCAAA7C8DFF9AD9EC' +
       'D83DC33DF2BAFBE1AC01798FFF2572BBFB8DDF481BDB589520EFF' +
       '09F98EF908FD8461D313C9413E776B7BF4CDEE1BFFB8675428EDD' +
       'BBA4A5CB3F9219BDCF982EF45BF3B8E1EBB7EF137E2407F7586DF' +
       'E66FE2DE7335A3DF5E9D34B4E53D10BBE0B746412F596D567FCCF' +
       'EABB56EFF2FF529F3DF70FB9DE4B0C');
end;
 
Procedure PaintForm(Sender : TObject);
begin
 CopyCanvas(GetBitmapCanvas(BitMap), MainForm.Canvas, 0, 0, 29, 30, xpos, ypos, Width + xpos, Height + ypos);
end;
 
 
Procedure LoadForm;
Begin
  MainForm := CreateForm;
  MainForm.SetBounds(0, 0, 500, 400);
  MainForm.POSITION:= poDesktopCenter;
  MainForm.BORDERICONS:= [biMinimize, biSystemMenu];
  MainForm.BORDERSTYLE:= bsSingle;
  MainForm.Caption := 'Display Picture';
  MainForm.Onpaint := @PaintForm;
  MainForm.ShowModal;
end;
 
Procedure SafeLoadForm;
Var
  V : TVariantArray;
begin
 SetArrayLength(V, 0);
 ThreadSafeCall('LoadForm', V);
end;
 
 
begin
 try
   LoadTheBitmap;
   SafeLoadForm;
 finally
    FreeForm(MainForm);
    FreeBitMap(Bitmap);
  except
    Writeln('ERROR');
 end;
end.