Setter mehrfach überschreiben.

[Mikkey]

Nö, so wird ein Schuh draus:

Delphi-Quellcode:

Procedure TWerkzeug0.SetProperties();
begin
    ...
end;

Procedure TWerkzeug1.SetProperties();
begin
    inherited SetProperties();
    ...
end;
...

Sonst baust Du ja die Logik nach, die Dir durch OOP zur Verfügung gestellt wird.