[Fanil]

да я так и сделал:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var PB1,PB2:real;
begin
 PB1:=StrToFloat(Edit1.Text);
    if 0<PB1<=20 then PB2:=15;
    if 21<PB1<=33 then PB2:=25;
    if 34<PB1<=50 then PB2:=40;
    if 51<PB1<=80 then PB2:=60;
    if 81<PB1<=100 then PB2:=100;

 Edit2.Text:=FloatToStr(PB2);
end;

Но выдает ошибку [Error] Unit1.pas(32): Incompatible types