function FindForm(s:string):TForm;
var i:integer;
begin
result:=nil;
for i:= 0 to screen.FormCount-1 do begin
if screen.Forms[i].ClassName=s then begin
result:=screen.Forms[i];
break;
end;
end;
end;

procedure TfrmQR3Demo.SkinData1FormSkin(Sender: TObject; aName: String;
var DoSkin: Boolean);
var fm:TForm;
begin
if (aname='TQRStandardPreview') then begin
fm:= FindForm(aName);
if fm<>nil then begin
fm.Top:=0;
fm.Left:=0;
fm.Width:=screen.Width;
fm.Height:=screen.Height;
end;
end;
end;