как задать несколько условий в delphi?

if условие_1 AND условие_2 then begin
...
else
...
end;

Использовать логические операторы and (логическое И) , or (логическое ИЛИ) и not (логическое НЕ) . Например:

if (условие 1) and (условие 2)
then действие;

В этом случае действие будет выполняться только при одновременном выполнении условий 1 и 2

procedure TForm1.Button1Click(Sender: TObject);
Var
x, y: integer; // Зададим две переменые x, y
begin
x := 2;
y := 7;

// and = и
// xor = или
// ...

if (x = 2) and (y = 4) then
// условие будет возращать false поскольку "y" = 7 а у нас по условию "y" = 4
begin
// Здесь пишем код который будет выполнятся если
// переменая "x" равна двум и переменая "y" равна 4
end else
begin
// Здесь пишем код который будет выполнятся если
// переменая "x" или "y" не соответствует условию
end;
end;

cогласен с Терзало.
if (uslovie 1) Or/and (по выбору, в зависимости от нужды - And - обязательно два или более условия, Or - или 1, или 2) (uslovie 2) And/or (uslovie 3) и т. д.

if (itsok)
{
//эта шняга работает
if (itsok2)
{
//эта тоже
}
else
{
//мда.. .
}
}
else
{
//1 ая шняга не работает, и вторая не будет
}

Эт на сишрап пример.