Program Delphi Daily Problem "PEMAKAIAN LISTRIK"

procedure TListrik.Button1Click(Sender: TObject);
var
  v,k,j:real;
begin
  v:=strtofloat(edit1.Text);
  k:=strtofloat(edit2.Text);
  if v = 450 then
  begin
    j:=(k*415)+5000;
    edit3.Text:=floattostr(j);
  end;
  if v =900 then
  begin
    j:=(k*605)+5000;
    edit3.Text:=floattostr(j);
  end;
  if v =1300 then
  begin
    j:=(k*1352)+6500;
    edit3.Text:=floattostr(j);
  end;
  if v=2200 then
  begin
    j:=(k*1584)+6500;
    edit3.Text:=floattostr(j);
  end;

end;


procedure TListrik.Button2Click(Sender: TObject);
begin
edit1.Text:=' ';
edit2.Text:=' ';
edit3.Text:=' ';
end;

procedure TListrik.Timer1Timer(Sender: TObject);
begin
label1.Left:=label1.Left-30;
 if  label1.Left<=-650 then
 label1.Left := 750;
end;

procedure TListrik.Button3Click(Sender: TObject);
begin
DailyProblems.Show;
Listrik.Hide;
end;

end.