как пользоваться IF

Привет всем. Как исправить этот скрипт?

If 1 =< n =< 30 then
   begin
          if MessageDlg('Демонстрационная версия. Из 30 дней осталось: ' + IntToStr(n) +'.'+#13+'Вы хотите приобрести лицензию?', mtInformation, mbYes+mbNo, 0) = mrYes then
               begin
               frmMain.PanelXXX.Visible:= True;
               end else
               begin
               frmMain.PanelXXX.Visible:= False;
               end;
    end;

Выдает ошибку.
Также, дополнение к скрипту:

if n < 1 then
            begin
                 if MessageDlg('Пробный период закончился.'+#13+'Вы хотите приобрести лицензию?', mtInformation, mbYes+mbNo, 0) = mrYes then
                    begin
                    frmMain.PanelXXX.Visible:= True;
                    end else
                    begin
                    frmMain.Close;
                    end;
            end;
Как все это соединить? Первый скрипт выдает ошибку, второй работает нормально.