Zitat von
JasonDX:
ein
KundenDaten := TKundenDaten.Create(...) sollte helfen
Hmmmmm.....
Daran hat es gelegen. Versteh ich aber nicht ganz.
Wenn ich vorher statt
kunde1.kundennummer:= Form1.query1.fieldbyname('ID').AsString;
einfach ein Label angesprochen habe, also
label1.caption:= Form1.query1.fieldbyname('ID').AsString;
dann ging es auch. Aber in beiden Fällen ist doch der Befehl in der Prozedur "TKundendaten.Kundesuchen", also müsste doch, wenn Kundendaten noch nicht erstellt wurde, in beiden Fällen eine Fehlermeldung kommen..