TObject @ MouseMove

Hvordan kan man få lov til at gøre noget ala det her!


procedure TForm1.ButtonsMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if Sender = TButton then begin  //????
    with (Sender as TButton) do begin
    if name = \'Hej\' then Hej.Enabled := False;
    if name = \'Med\' then Med.Enabled := False;
    end;
  end else if Sender = TLabel then begin
    //osv...
  end;
end;