Coding delphi borland7

CODING PENJUALAN SUSU

masukan coding ke kotak sebelah KODE SUSU :
if ComboBox1.Text='D' then
   Edit1.Text:='Dancow';
if ComboBox1.Text='S' then
   Edit1.Text:='Sustagen';
if ComboBox1.Text='M' then
   Edit1.Text:='Milo';
if ComboBox1.Text='D' then
begin
if ComboBox2.Text='Kecil' then
   Edit3.Text:='20000';
if ComboBox2.Text='Sedang' then
   Edit3.Text:='30000';
if ComboBox2.Text='Besar' then
   Edit3.Text:='40000';
end;
if ComboBox1.Text='S' then
begin
if ComboBox2.Text='Kecil' then
   Edit3.Text:='21000';
if ComboBox2.Text='Sedang' then
   Edit3.Text:='31000';
if ComboBox2.Text='Besar' then
   Edit3.Text:='41000';
end;
if ComboBox1.Text='M' then
begin
if ComboBox2.Text='Kecil' then
   Edit3.Text:='22000';
if ComboBox2.Text='Sedang' then
   Edit3.Text:='32000';
if ComboBox2.Text='Besar' then
   Edit3.Text:='42000';
end;

Edit4.Text:=FloatToStr(StrToFloatDef(Edit3.Text,0)*(StrToFloatDef(Edit2.Text,0)));
if (StrToFloatDef(Edit4.Text,0)>=200000) then
begin
Edit5.Text:=FloatToStr(StrToFloatDef(Edit3.Text,0)*0.1);
Edit6.Text:=FloatToStr(StrToFloatDef(Edit4.Text,0)- StrToFloatDef(Edit5.Text,0));
end
else
Edit5.Text:='0';
Edit6.Text:=FloatToStr(StrToFloatDef(Edit4.Text,0)- StrToFloatDef(Edit5.Text,0));


masukan coding ke kotak sebelah JUMLAH JUAL :
Edit4.Text:=FloatToStr(StrToFloatDef(Edit3.Text,0)*(StrToFloatDef(Edit2.Text,0)));
if (StrToFloatDef(Edit4.Text,0)>=200000) then
begin
Edit5.Text:=FloatToStr(StrToFloatDef(Edit3.Text,0)*0.1);
Edit6.Text:=FloatToStr(StrToFloatDef(Edit4.Text,0)- StrToFloatDef(Edit5.Text,0));
end
else
Edit5.Text:='0';
Edit6.Text:=FloatToStr(StrToFloatDef(Edit4.Text,0)- StrToFloatDef(Edit5.Text,0));

masukan coding ke kotak sebelah UKURAN :
if ComboBox1.Text='D' then
begin
if ComboBox2.Text='Kecil' then
   Edit3.Text:='20000';
if ComboBox2.Text='Sedang' then
   Edit3.Text:='30000';
if ComboBox2.Text='Besar' then
   Edit3.Text:='40000';
end;
if ComboBox1.Text='S' then
begin
if ComboBox2.Text='Kecil' then
   Edit3.Text:='21000';
if ComboBox2.Text='Sedang' then
   Edit3.Text:='31000';
if ComboBox2.Text='Besar' then
   Edit3.Text:='41000';
end;
if ComboBox1.Text='M' then
begin
if ComboBox2.Text='Kecil' then
   Edit3.Text:='22000';
if ComboBox2.Text='Sedang' then
   Edit3.Text:='32000';
if ComboBox2.Text='Besar' then
   Edit3.Text:='42000';
end;