EnableFloater example for Delphi

procedure TForm1.FormButton1Click(Sender: TObject);
Begin
   Lead1.AutoFloater := True;
   Lead1.RgnMarkingMode := mmRectangle;
   Lead1.RgnFrameType:= ftStatic;
   Lead1.EnableFloater := True;
   ShowMessage('Use the mouse to create a floater and move it');
End;