verdreht
Delphi-Quellcode:
if assigned(objectlist) then
objectList := TObjectList.create;
Hier bist Du nach dem ersten Aufruf EOF
Delphi-Quellcode:
with f_dm.q_kontakt_select do
begin
open;
while not eof do
ein (beim ersten Aufruf unnötiges First) könnte helfen
Der Fehler in Button2 wurde hinreichend besprochen