Hola jocey, te pongo un ejemplo.
Código Delphi
[-]
var
num1, num2 : Integer;
PosGuion, X : Integer;
begin
X := 60 ;
PosGuion := Pos('-', Edit1.Text);
num1 := StrToInt(Trim(Copy(Edit1.Text, 1, PosGuion-1)));
num2 := StrToInt(Trim(Copy(Edit1.Text, PosGuion+1, Length(Edit1.Text))));
if (X>=num1) and (X<=num2) then
showmessage('esta en medio');
Saluditos