Yeah... I'll give you the ButtonClick and DrawImages parts.
SCAR Code:
procedure DrawImages(sender: TObject);
var
BG : Integer;
Canvas : TCanvas;
begin
BG := BitmapFromString(707,499, 'bitmap string....');
Canvas := GetBitmapCanvas(BG);
CopyCanvas(Canvas, frmDesign.Canvas,0,0,705,500,0,0,930,625 );
FreeBitmap(BG);
end;
SCAR Code:
procedure ButtonClick(sender: TObject);
begin
SetupPlayerAndScript;
RSGuide;
frmDesign.ModalResult:= mrOk;
end;
This is reeaaaaaallly annoying, no error in script but i get out of range 
HELP ME PL0000X !!!