[lKinGl]

declara 2 variable tipo double

Ejemplo:

Código Delphi [-]
 
Var
iva,total:double;
 
begin
total:=strtofloat(edittotal.text);
iva:=total*0.09;
editiva.Text:=format('%f',[iva]);
end;