extended værdi gange 0,4

Jeg har en lille kode her med et tal i "SumMouseMove" som jeg skal gange med 0,4.

Procedure .....
Var
  SumMouseMove: extended; 
Begin
  Label2.Caption := (FloatToStr(SumMouseMove)*0,4) + 'mm';
End;

Denne kode virker ikke, hvorfor ??
Og hvordan skal den se ud ?

// dl