var FBrush: TBrush;  
 
procedure TForm1.FormCreate(Sender: TObject); 
var 
  g: integer; 
  MInf: TMenuInfo; 
begin 
  FBrush := TBrush.Create; 
  FBrush.Color := clred; // Menü-Farbe 
  g := sizeof(TMenuInfo); 
  zeromemory(@MInf, g); 
  MInf.cbSize := g; 
  MInf.hbrBack := FBrush.Handle; 
  MInf.fMask := MIM_BACKGROUND; 
  SetMenuInfo(Menu.Handle, MInf); 
end; 
 
procedure TForm1.FormDestroy(Sender: TObject); 
begin 
  FBrush.free; 
end;