protected
  procedure WndProc(var TheMessage: TLMessage); override;
...

procedure TMyControl.WndProc(var TheMessage: TLMessage);
var
  vWMSize: TWMSize; 
begin
  inherited WndProc(TheMessage);
  if TheMessage.Msg = WM_SIZE then
  begin
    vWMSize := TWMSize(TheMessage);

    DebugLn('%s.WndProc : Le parent a été redimensionné, SizeType[%d] H[%d] W[%d]',
      [Name, vWMSize.SizeType, vWMSize.Height, vWMSize.Width]);
    // Le parent a été redimensionné
    // Implémenter ici la logique de redimensionnement du contrôle
  end;
end;