Procedure SMART_ClearRSCanvasArea(w, h: integer; Position: TPoint);
var
  CleanBMP: integer;
  Canvas: TCanvas;
begin
  CleanBMP := BitmapFromString(w, h, '');
  Canvas := TCANVAS.Create;
  Canvas.Handle := SmartGetDebugDC;
  DrawBitmap(CleanBMP, Canvas, Position.x , Position.y);
  try
    FreeBitmap(CleanBMP);
  except
    writeln('Unable to free SMART bitmap.');
  end;
end;