Merci, c'est cool.

mais un petit detail me gene :

procedure TDragPos.Paint;
var i,x,y : integer;
    Buffer: Tbitmap; // buffer de dessin
begin
  // creation du buffer
  Buffer := TBitmap.Create;
  Buffer.Width := width;
  Buffer.Height:= Height;
  Buffer.PixelFormat:= pf24bit;

  with Buffer.canvas do begin
       // on dessine la grille
       Draw(0,0,fGridBitmap);

       if list.Count <> 0 then begin
          for i := 0 to list.count-1 do begin
              Pen.Color:=$0a0aff;
              amarker := list.Items[i];
              x       := amarker^.cxpos;
              y       := amarker^.cypos;
              // ellipse, plus rapide que Arc.
              Ellipse(x-4,y-4,x+4,y+4);

              Pen.Color:=$00FF00;
              if i = 0 then
                 MoveTo(x,y)
              else
                 LineTo(x,y);
          end;
       end;
  end;

J'ai remarqué que le fait de déssiné sur un bitmap puit de l'appliqué sur le panel provoquait un ralentisement de l'apli. L'orsque je deplacais un trackbar je constate que le maskedit corespondant prenait plus de temp pour affiché la nouvelle valeur.

Sinon la grille est vraiment une bonne ideé (c'est presque nécesaire).

1000 * Merci,
Je suis super content de conaitre la fonction 'format()' c'est une revolution pour moi, je me disait bien qu'il devait y avoir un moyen plus simple et moins sougrenu.
Je pence que pas mal de mes applis subiront des modification;
Cella faisais assez longtemp que je gardais cette appli au fond de mon disque,(depuis je manque d'inspiration).
D'appré mes souvenirs, le composant s'installe mais lorsque je la depose sur la fiche ya plein de messages d'ereurs et il ne s'affiche pas bien.

Merci pour les remarques,
je les ais pris en compte dans la mise a jours.