подключаем библиотеку math
x := strtofloat(Edit1.text);
If (x=2) or (x=3) then y:= sqrt(x)+(3/power(x,2));
If x>5 then y:= 25*(power(x,2))+sin(x);
If not (x=2) or not (x=3) or not (x>5) then y:= sqrt(3*power(x,3)-sqrt(x)); или эту строку можно написать вот так:
If (x=4) or (x<2) then y:= sqrt(3*power(x,3)-sqrt(x));
Ну и понятно, что выводит y в label.
Писал из головы, по этому не проверял в компиляторе.