En Delphi el operador ^ se usa para dereferenciar punteros (apuntadores).
Si quieres elevar un número a un exponente utiliza la función Power de la unidad Math:
function Power(const Base, Exponent: Extended): Extended;
--
Un Saludito.
NOTA: En tu código puedes sustituir esto
Código Delphi
[-]
h:=SQRT(STRTOFLOAT(D1)^2+STRTOFLOAT(D2)^2)
por esto:
Código Delphi
[-]
h:= Sqrt(Power(StrToFloat(d1), 2) + (Power(StrToFloat(d2), 2)));