[martini002]

Saludos,

Hoy he iniciado con Delphi 7
y pues he visto algunos post que me han ayudado
a familiarizarme con este lenguaje y que pues me han servido bastante
pero en esta oportunidad, quiero compartir con ustedes
una confusion que tengo.

He estado haciendo algunas pruebas y algunos
cambios pero realmente no he logrado arreglar este codigo
pueden ustedes ver algo que yo desconozco?
porque no entra a la condicion?

gracias por su apoyo
Best,
Martin

[Error] AreaRectangulo.pas(40): Incompatible types

procedure TForm1.Image2Click(Sender: TObject);
Var
  Base, Altura, Area : Word;
begin
  Base:=StrToInt(BoxBase.text);
  Altura:=StrToInt(BoxAltura.text);
  If Base > 0 and Altura > 0 Then // AQUI EL ERROR
    Begin
      Area:=Base*Altura;
      BoxArea.Text:=inttostr(Area);
    End
  Else
    Begin
      ShowMessage('Valores Incorrectos');
    End
end;