Überladen von function geht nicht ?

[EccoBravo]

Hallo,

ich will gerade ein TEdit schreiben, das mit verschiedenen Typen funktioniert.
Dabei habe ich Schwierigkeiten mit dem Überladen von Funktionen. In mir hegt sich das Unbehagen, daß das wohl nicht geht - ist das richtig?
Ich war der Annahme, daß verschiedene Rückgabetypen ähnlich funktionieren wie verschiedene Parameterlisten.
(BDS2006)

Anbei habe ich mal meinen Code eingefügt:

Delphi-Quellcode:

unit EB_Edit;

interface

uses
  SysUtils, Classes, Controls, StdCtrls, Math;

type
  TEB_Edit = class(TEdit)
  private
    FWert: string;

    function GetWert:string; overload;
    procedure SetWert(const Value: string); overload;

    function GetWert:integer; overload;
    procedure SetWert(const Value: integer); overload;

    function GetWert:single; overload;
    procedure SetWert(const Value: single); overload;
    procedure SetWert(const Value: single;rn:integer); overload;

    { Private-Deklarationen }
  protected

  { Protected-Deklarationen }
  { Public-Deklarationen }
  { Published-Deklarationen }
  public

  published
    property Wert:string read FWert write SetWert;

  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('EB_Tools', [TEB_Edit]);
end;

{ TEB_Edit }

{ TEB_Edit }

function TEB_Edit.GetWert: string;
begin
  result := Text;
end;

procedure TEB_Edit.SetWert(const Value: string);
begin
  FWert := Value;
  Text:=FWert;
end;

function TEB_Edit.GetWert: integer;
begin
  result:= StrToInt(Text);
end;

procedure TEB_Edit.SetWert(const Value: integer);
begin
  FWert := IntToStr(Value);
  Text:=FWert;
end;

function TEB_Edit.GetWert: single;
begin
  result:= StrToFloat(Text);
end;

procedure TEB_Edit.SetWert(const Value: single);
begin
  FWert := FloatToStr(Value);
  Text:=FWert;
end;

procedure TEB_Edit.SetWert(const Value: single; rn: integer);
begin
  FWert := FloatToStr(roundTo(Value,-rn);
  Text:=FWert;
end;

end.

Hat nicht jemand da eine Idee?

Vielen Dank

E. B.