[roman]

Sí, claro que es posible. La estructura general de la cláusula if-then utiliza un bloque begin-end para englobar múltiples sentencias:

Código Delphi [-]
if Condición then
begin
  Sentencia1;
  Sentencia2;
  ...
end;

// Saludos