Edit immer mit 2 Nachkommastellen

[Hansa]

Ich habe hier ein Stringgrid mit 2 Nachkommastellen. Ich kann also 2 Nachkommestellen eingeben und fertig. Ich wollte das nun auf ein TEdit übertragen, aber es geht nicht. 8) Wie muß der Code geändert werden ?

Delphi-Quellcode:

procedure TfrmTest.sgTestDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);

procedure WriteText(StringGrid: TStringGrid; ACanvas: TCanvas; const ARect: TRect;
    const Text: string);
  const
    DY = 2;
  var
    S: array[0..255] of Char;
  begin
    with Stringgrid, ACanvas, ARect do begin
      ExtTextOut(Handle, Right - TextWidth(Text) - 3, Top + DY,
            ETO_OPAQUE or ETO_CLIPPED, @ARect, StrPCopy(S, Text),
            Length(Text), nil);
    end;
  end;

  procedure Display(StringGrid: TStringGrid; const S: string);
  begin
    WriteText(StringGrid, StringGrid.Canvas, Rect, S);
  end;

var
   s : string;
begin
  inherited;
  if (ACol in [1,3..7]) then
    Display(sgTest, sgTest.Cells[ACol, ARow])
end;

Wie kann ich dieses Verhalten auf ein Edit übertragen ??