Das wird nur gehen, wenn du jeden Zugriff über Methoden realisierst...
Delphi-Quellcode:
procedure xyz;
var s1, s2: string;
obj: TSHA1HashObjekt;
begin
obj := TSHA1HashObjekt.create('17FA58DAA075C');
obj.append('17FA58DAA075C');
obj.insert('17FA58DAA075C', 3);
obj.delete(1, 3);
if obj.valide then
begin
write obj.value;
write obj.FormatierteAusgabe;
end;
end;