Combobox

//Koding di Form2
procedure TForm2.BtnMitra1Click(Sender: TObject);
begin
if BtnMitra1.Pressed=true then
    BtnFeed.Visible:=true;
    BtnEgg.Visible:=true;
    BtnDoq.Visible:=true;
    BtnTray.Visible:=true;
    BtnRpb.Visible:=false;
    BtnProd.Visible:=false;
    BtnMeat.Visible:=false;
end;

procedure TForm2.BtnFeedClick(Sender: TObject);
begin
form3.Show;
form3.LJud1.Text:='Divisi '+BtnMitra1.Text;
form3.LJud2.Text:=BtnFeed.Text;
form3.Divisi.Text:='11';
form3.KodePro.Text:='001';
end;

procedure TForm2.BtnEggClick(Sender: TObject);
begin
form3.Show;
form3.LJud1.Text:='Divisi '+BtnMitra1.Text;
form3.LJud2.Text:=BtnEgg.Text;
form3.Divisi.Text:='11';
form3.KodePro.Text:='002';
end;

procedure TForm2.BtnDoqClick(Sender: TObject);
begin
form3.Show;
form3.LJud1.Text:='Divisi '+BtnMitra1.Text;
form3.LJud2.Text:=BtnDoq.Text;
form3.Divisi.Text:='11';
form3.KodePro.Text:='003';
end;

procedure TForm2.BtnTrayClick(Sender: TObject);
begin
form3.Show;
form3.LJud1.Text:='Divisi '+BtnMitra1.Text;
form3.LJud2.Text:=BtnTray.Text;
form3.Divisi.Text:='11';
form3.KodePro.Text:='004';
end;


//koding di Fom3
procedure TForm3.MenuLapEnter(Sender: TObject);
begin
MenuLap.Clear;
if Divisi.Text='11' then
  begin
    if KodePro.Text='001' then
      begin
        MenuLap.Items.Add('01. Omzet Penjualan Pakan');
        MenuLap.Items.Add('02. Biaya');
        MenuLap.Items.Add('03. Laba Rugi');
      end;
    if KodePro.Text='002' then
      begin
        MenuLap.Items.Add('01. Omzet Penjualan Telur');
        MenuLap.Items.Add('02. Biaya');
        MenuLap.Items.Add('03. Laba Rugi');
      end;
    if KodePro.Text='003' then
      begin
        MenuLap.Items.Add('01. Omzet Penjualan DOQ');
        MenuLap.Items.Add('02. Biaya');
        MenuLap.Items.Add('03. Laba Rugi');
      end;
    if KodePro.Text='004' then
      begin
        MenuLap.Items.Add('01. Omzet Produksi Tray');
        MenuLap.Items.Add('02. Biaya');
        MenuLap.Items.Add('03. Laba Rugi');
      end;
  end;