Ok I am trying some code to sort the problum here is what I have
var
b : TBrush;
rc : TRect;
begin
b := Tbrush.Create;
b.Bitmap := ImgBrush.Picture.Bitmap;
frmmain.Canvas.Brush := b;
SetRect(rc,0,0,self.Width ,self.Height);
frmmain.Canvas.FillRect(rc);
b.Free;
But i get an error while running the code
unit1.pas(218,10) Error: Identifier not found "SetRect"
unit1.pas(219,29) Warning: Local variable "rc" does not seem to be initialized
unit1.pas(255) Fatal: There were 1 errors compiling module, stopping
It seems like I am missing something but not sure this is what I got in my uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
ExtCtrls, inifiles,ShellApi,Unit2,MMSystem;
Any ideas were I am going wrong thanks.