1:
2:
3:
4:

var dingsi1, dingsi2: MyLovelyDingsies;
begin
  ...
  dingsi1 := dingsi2; // daß will ich beeinflussen.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

TDoubleInput = record //kann auch ne class sein *logisch*
private
  FValue: Integer;
public
  class operator  Implicit(const AValue: string): TDoubleInput;
  class operator  Implicit(const AValue: TDoubleInput): Integer;
end;

class operator TDoubleInput.Implicit(const AValue: string): TDoubleInput;
begin
   Result.FValue := StrToIntDef(AValue, 0) * 2; //Wert intern in privater variable ablegen
end;

class operator TDoubleInput.Implicit(const AValue: TDoubleInput): Integer;
begin
   Result  := AValue.FValue div 2;  //Wert aus internem Wert zurückgeben;
end;

//demo zugriffe auf die selbstdefinierten operatoren
var
  Double: TDoubleInput;
  I: Integer;
begin
  Double := '2'; // line 1
  I := Double;   // line 2
end;