[delphi-br] Erro de arredondamento (Resolvido)

[fabio_giro]

uses math;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  tx : double;
begin
  tx := strtofloat(edit1.text);
  tx := roundto(tx + 0.00001,-2);
  edit2.text := floattostr(tx);
end;

Agradeço a todos pelas colaborações.