[rufo]

ok amigos les voy aponer mi codigo ya funcionando del cual les agradesco mucho sus contestaciones.

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.