anchor.diff:  
   destructor TmToast.Destroy;
   begin
  +  FNotifierForm.Hide;
  +  FNotifierForm.Free;
  +
     inherited Destroy;
  +end;
  +
  +procedure TmToast.Hide;
  +begin
  +  FNotifierForm.Hide;
  +end;
  +
  +procedure TmToast.Show;
  +begin
  +  FNotifierForm.Show;
  +end;
  +
  +procedure TmToast.ShowAtPos(x: Integer; y: Integer);
  +begin
  +  if x + FNotifierForm.Width > Screen.Width then
  +  begin
  +    FNotifierForm.left := x - FNotifierForm.Width;
  +    if FNotifierForm.Left < 0 then FNotifierForm.Left := 0;
  +  end
  +  else
  +    FNotifierForm.left := x;
  +
  +  if y + FNotifierForm.Height > Screen.Height then
  +  begin
  +    FNotifierForm.top := y - FNotifierForm.Height;
  +    if FNotifierForm.top < 0 then FNotifierForm.top := 0;
  +  end
  +  else
  +    FNotifierForm.top := y;
  +
  +  FNotifierForm.Show;
   end;
   
   class procedure TmToast.ShowText(const aText: String; const aDuration: integer = 1500);
  
positive.code:       exit;
    end;
    applicationToaster.FTimer.Interval:= aDuration;
    applicationToaster.Title:= '';
    applicationToaster.Text:= aText;
    applicationToaster.FTimer.Enabled:= true;
    applicationToaster.ShowAtPos((Screen.Width - applicationToaster.vNotifierForm.Width) div 2, Screen.Height - 200);
  end;
  
  
  
negative.code: // This software is distributed without any warranty.
  //
  // @author Domenico Mammola (mimmo71@gmail.com - www.mammola.net)
  //
  // CREDITS:
  // This code was adapted from PopupNotifier.TNotifierForm
  // of LCL
  //
  unit mToast;
  
  {$IFDEF FPC}
  