procedure TMainForm.FormPaint(Sender: TObject);
var
CustRect: TRect;
BmpFile: TBitmap;
StrFile: string;
begin
if FileExists(ExtractFilePath(Application.ExeName) + 'Picture.bmp') then
begin
StrFile := ExtractFilePath(Application.ExeName) + 'Picture.bmp';
BmpFile := TBitmap.Create;
BmpFile.LoadFromFile(StrFile);
CustRect := Canvas.ClipRect;
Canvas.Brush.Bitmap := BmpFile;
Canvas.FillRect(CustRect);
FreeAndNil(BmpFile);
end;
end;
var
CustRect: TRect;
BmpFile: TBitmap;
StrFile: string;
begin
if FileExists(ExtractFilePath(Application.ExeName) + 'Picture.bmp') then
begin
StrFile := ExtractFilePath(Application.ExeName) + 'Picture.bmp';
BmpFile := TBitmap.Create;
BmpFile.LoadFromFile(StrFile);
CustRect := Canvas.ClipRect;
Canvas.Brush.Bitmap := BmpFile;
Canvas.FillRect(CustRect);
FreeAndNil(BmpFile);
end;
end;