Séparateur de millier d'un edit commandé par un updown

Edit.Text := FormatFloat('#-##0', Valeur)

Function AddSeparator(Str:string;S:char): string; 
 var I: integer; 
begin 
 Result := Str; 
 I := Length(Str)-2; 
 while I > 1 do 
 begin 
  Insert(Chr, Result, I); 
  I := I - 3; 
 end 
end;
 
Statictext1.Caption := AddSeparator('ValStr','.');