операторы if else if then

Добрый день. в программировании ничего не смыслю (только по книжкам пытаюсь что-нибудь сделать).
  Проблема такая, хочу сделать расчет,но у меня ошибка, then не правильно использую пишет:

приблизительно хотел так сделать:
procedure Client_culc_OnClick (Sender: string; Var Cancel: boolean; const Number: double);
        begin
           if Client.CheckBox1.Checked := true
               and client.ComboBox1.Text := '1per'
                   and client.ComboBox2.Text := '1-7' then
               begin
                   client.Edit13.Value := 18;
               end;
                   else if
                      begin
                        Client.CheckBox1.Checked := true and client.ComboBox1.Text := '2per' and client.ComboBox2.Text := '1-7' then
                            client.Edit13.Value := 27;
                      end;
                         end;

там условия такие, что мне нужно выдавать стоимость, при трех условиях: количество дней; количество людей; и куда поездка.
   
client.ComboBox1.Text  - это количество людей;
client.ComboBox2.Text - количество дней
Client.CheckBox1.Checked - куда поездка

здесь всего два варианта для теста взял: если клиент выбрал первое направление поездки, от 1 до 7 дней и 1 человек, то условно 18 долларов;
                                                                       если клиент выбрал второе направление поездки, от 1 до 7 дней и 2 человека, то 27 долларов

и т.д. Таких условий очень много. Но думал, если эти сработают, то дальше масштабировать.