variaveis que cobrem faixa determindas de valores

[Visitante]

Olá amigos

Preciso de uma ajuda e quem poder dar uma força agradeço, como que posso fazer através do código uma variável A que cubra uma faixa de valores que vai 1 até 29,59 , que a variável B cubra uma faixa de valores que vai 30 até 59,59  assim por diante
 

              1..29,59  := (A);
             30..59,59  := (B);
             60.. 89,59 := (C);
             90..119,59 := (D);
            120..149,59 := (E);
            150..179,59 := (F);

[Visitante]

Olá a todos,

fiz aqui a tempo atrás  e ficou meio grande pra aquilo que estou precisando usando ifs, se servir prá alguém está ai,  se alguém tiver alguma sugestão de como diminuir  e quiser compartilhar agradeço

procedure TForm1.Button1Click(Sender: TObject);

Var

A,B,C, valor, VARIAVEL: real;

begin

begin

valor:=StrToFloat(Edit1.Text);
A := 1 ;
B:= 30;
C:= 60;

begin IF (valor>= A) and (VARIAVEL <=29.59 ) THEN  Label1.Caption := ('A'); end;
begin IF (valor>= B) and (VARIAVEL <=59.59 ) THEN Label1.Caption := ('B');end;
begin IF (valor>= C) and (VARIAVEL <= 89.59) THEN  Label1.Caption := ('C');end;

begin IF Label1.Caption = ('A') THEN Label2.Caption := ('preto');end;
begin IF Label1.Caption = ('B') THEN Label2.Caption := ('vermelho'); end;
begin IF Label1.Caption = ('C') THEN Label2.Caption := ('verde'); end;

end;
end;

 

 

 

 

[Visitante]

desculpe  pessoal  aqui no Lazarus tem  colocar estes  itens  "A,B,C, valor, VARIAVEL" , não no button1 e sim  na váriavel global, prá não dar erro

não sei porque deu esse erro, fiz a atualização do lázarus esses dias, vou dar uma olhada se ocorre isso na versão anterior e qualquer coisa informo a vocês,

Então é isso, abraços

 

 

 

var

  Form1: TForm1;
  A,B,C: real;
  valor, VARIAVEL: real;