Gaji Karyawan

procedure TForm2.Button1Click(Sender: TObject);
var gaji,tunjangan,Total,Pegawai :integer ;
begin

if RadioButton1.Checked = true  then
Pegawai := 500000 else
Pegawai := 250000 ;

case ComboBox1.ItemIndex  of
0 : gaji := 1200000;
1 : gaji := 1500000;
2 : gaji := 1700000;
end;

if StrToInt (Edit2.Text ) > 3 then
tunjangan := 300000 else
tunjangan := 50000 ;

total := Pegawai + gaji + tunjangan ;

end;




procedure TForm2.FormCreate(Sender: TObject);
var i:integer ;
begin
Edit1.Text := '' ;
Edit2.Text := '';
Edit3.Text := '' ;

ComboBox1.Items.Add('Pegawai Biasa');
ComboBox1.Items.Add('Direktur') ;
ComboBox1.Items.Add('Manager') ;

RadioButton1.Caption := 'Tetap' ;
RadioButton2.Caption := 'Magang' ;

RadioButton1.Checked := true ;
ComboBox1.ItemIndex := 0 ;
end;