Index: ProScan/ProScanMain.pas =================================================================== diff -u -r540 -r541 --- ProScan/ProScanMain.pas (.../ProScanMain.pas) (revision 540) +++ ProScan/ProScanMain.pas (.../ProScanMain.pas) (revision 541) @@ -51,7 +51,6 @@ fUiContext := TUiContext.Create(); fUiContext.ImagesScherm := TImagesScherm.Create(self); fUiContext.Modus := modusDefault; - fUiContext.LaatstAfgedrukteDnaCodes := TStringList.Create(); VerwerkParamStrings; end; Index: ProScan/UI/UiContext.pas =================================================================== diff -u -r540 -r541 --- ProScan/UI/UiContext.pas (.../UiContext.pas) (revision 540) +++ ProScan/UI/UiContext.pas (.../UiContext.pas) (revision 541) @@ -42,6 +42,7 @@ fLaatsteDnaCodeGoedAfgemeld: boolean; fLaatstAfgedrukteDnaCodes: TStringList; public + Constructor Create; overload; Property Initialen: String Read fInitialen Write fInitialen; Property LoginCode: String Read fLoginCode Write fLoginCode; Property Pallet: String Read fPallet Write fPallet; @@ -67,5 +68,9 @@ implementation { TUiContext } +constructor TUiContext.Create(); +begin + fLaatstAfgedrukteDnaCodes := TStringList.Create(); +end; end.