Actualizar Hint y mostrarlo

[ecfisa]

Hola jocaro.

Por lo que puedo entender, deseas que se refresque el Hint al mover el mouse sobre el TSpeedButton. Si es así, podes usar el evento OnShowHint:

Código Delphi [-]
...
type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
  ...
  private
    procedure AppShowHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo);
    ...
  end;
..
implementation

procedure TForm1.AppShowHint(var HintStr: string; var CanShow: Boolean;
  var HintInfo: THintInfo);
begin
  HintInfo.ReShowTimeout:= 10; // ms.
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnShowHint:= AppShowHint;
end;

procedure TForm1.SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  TSpeedButton(Sender).Hint:= Format('X: %d, Y: %d', [X,Y]);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  HintInfo.ReShowTimeout:= 0;
end;

Saludos