1:
2:
3:
4:
5:
6:
7:
8:
9:

var
 iR : double;
begin
 
    iR := StrToFloat('0,001') * StrToFloat('0,001');  //zeigt 1e-06 
    showmessage(floattostr(iResultat)); //zeigt '1E-6' 
    //die Anzeige sollte hier genauer sein wie -> '0,000001'
 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure TForm1.Button2Click(Sender: TObject);
var
 iR,iZahlA,iZahlB : double;  // plus portable
begin

   iZahlA := 0.000001; // Dieses Zahl schwankt von 0,000001 bis 100
   iZahlB := 0.0001; // Dieses Zahl schwankt von 0,000001 bis 100
   // für den test ist iZahlA und iZahlB fest
   //...
   iR := iZahlA * iZahlB;
   //...
   //..

   // wie soll ich die parametern in FloatToStrF einlegen wenn das Wert in
   // iZahlA und iZahlB schwangt von 0,000001 bis 100
   // Das heisst iR kann einmal das wert haben als beispiel 0,000001
   // oder einmal 0,0001 oder einmal 0,000000001 oder 12,45 oder 37,9734
   // wenn ich z.b 8, 4  eintrage in FloatToStrF stimmt nicht für alle andere Zahlen
     showmessage( FloatToStrF(iR, ffNumber, 8, 4));
   // wenn zum beispiel das zufall Zahl 0,000000001 kommt, mit
   //  showmessage( FloatToStrF(iR, ffNumber, 8, 4)) bekomme ich '0.0000'
   // aber wenn zufall Zahl '0.0001' dann ist mein FloatToStrF(iR, ffNumber, 8, 4) OK

end;					

1:

     showmessage(formatfloat('0.###############',ir));