Ich sehe da jede Menge
Code Smells in deinen Sourcecode Schnippseln.
Du greifst z.B. ständig auf die
globale Variable form1 zu.
Oder noch ein Beispiel:
Delphi-Quellcode:
procedure TAdmin.loadPicture;
...
begin
if form1.OpenPictureDialog1.execute then begin
Der Aufruf von form1.OpenPictureDialog1.execute ist doch von Hinten-durch-die-Brust-ins-Auge.
Gib' der procedure loadPicture einen Übergabeparameter
const filename:string und der Code wird deutlich besser.
Wenn du diese Probleme beseitigst, dann wird auch dein ursprüngliches Problem leichter zu beheben.