[andres1569]

Si quieres que al pulsar el botón derecho del ratón te aparezca un menú flotante, es tan fácil como colocar un TPopupMenu y asignárselo a la propiedad PopupMenu del botón.

Ya que creas el botón dinámicamente, deberías asignar, también en ejecución, esta propiedad:

procedure TForm1.CreaBoton;
begin
  With TButton.Create (Self) do
  begin
    Parent := Self;
    PopupMenu := PopupMenu1; 
    ...
end;