ok amigos les voy aponer mi codigo ya funcionando del cual les agradesco mucho sus contestaciones.
Código:
procedure TAlta_factura.Button1Click(Sender: TObject);
var
no1,no2:double;
no3,no4:real;
begin
if (edit4.text='')then
edit4.Text:='0';
if edit6.text='' then
edit6.Text:='0';
no1:=strtofloat(edit4.Text);
no2:=strtofloat(edit6.Text);
edit7.Text:=formatfloat('0.00',no1+no2);
no3:=strtofloat(edit10.Text);
edit8.text:=formatfloat('0.00',no3/1.15);
no4:=strtofloat(edit8.Text);
edit9.Text:=formatfloat('0.00',no4*0.15);
label5.Caption:=CantidadEnLetra(StrtoFloat(edit10.Text),1);
end;
La funcion es la que puse aqui en mi pregunta y de nuevo gracias.