[Robert01]

Te falta declarar la variable resultado

Código Delphi [-]
var   
  resultado:extended;