1. Dynamic call of stored procedures
sp_Exec.Parameters.Clear;
sp_Exec.PRocedureName := 'sp_TransTo';
sp_Exec.Parameters.CreateParameter('@mailId', ftString, pdInput, 50, MailId);
sp_Exec.Parameters.CreateParameter('@Result', ftInteger, pdOutput, 0, rowID);
sp_Exec.ExecProc;
2. Display pop-up menu in the lower left corner of the button
var
xy: TPoint;
Begin
xy := btnFlow.ClientOrigin;
xy.Y := xy.Y + btnFlow.Height;
Windows.ClientToScreen(HWND_DESKTOP, xy);
mmMenu.Popup(xy.X, xy.Y);
3. Windows Messages