Hola martini002 y bienvenido a Club Delphi
Como a todos los que se inician te invitamos a que leas nuestra
guía de estilo.
Cuando en una estructura de decisición evaluas mas de una expresión lógica mediante nexos conjuntivos, disyuntivos o negativos, debes encerrar cada una de las expresiones entre paréntesis, en tu caso:
Código Delphi
[-]
If (Base > 0) and (Altura > 0) Then
Otro ejemplo:
Código Delphi
[-]
if (a > b) or ( (b < c) and (d > 15) ) then
Saludos.
Edito: Ups! me colgué con un llamado y no ví tu mensaje maeyanes, disculpas.