Salario con un aumento arriba de las 30 hr y in impuesto de 20

unit salario;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Edit4: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var tar,sal,num:real;
mane:string;

begin
tar:=strtofloat(edit1.Text);
num:=strtofloat(edit2.Text);
name:=(edit3.Text);
sal:=(tar*num);
if sal>100 then
begin
sal:=(tar*num)-tar*num*0.2;
//tar*num*0.2 es el impuesto del 20%;
edit4.Text:=floattostr(sal)+ ' Bs de sueldo de '+(name);
end

else
// condicionante indicando si elnumero de horas que setrabajanesmayor
//a 30 horas hay un aumento de 60% y tb descopntando elimpuesto;
if num>30 then
begin
sal:=(tar*num+tar*num*0.6-tar*num*0.2);


edit4.Text:=floattostr(sal); end
end;

// colocamoseste boton para que borre datos anteriores
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit1.SetFocus;
// naden sus dudas en la misma pagina
end;


end.