Delphi - necesito sacar porcentaje a campo total

Hola amigos programadores, estoy haciendo un programa de facturacion, y puedo multiplicar las cantidades y sumar para obtener el subtotal o sea el NETO , pero necesito sacarle el IVA , o sea el porcentaje al campo subtotal,
tengo esto para multiplicar o sumar en fin, pero para sacar el porcentaje .. no se como hacerlo

VAR
X,Y,Z:REAL;

begin
X:=StrToFloat(Edit1.TEXT );
Y:=StrToFloat(Edit2.TEXT);

Z:= X * Y;
ShowMessage('EL RESULTADO ES: ' + FloatToStr(Z) );

gracias amigos
saludos