locate keine aktualisierung

caia

seid einigen Tagen versuche ichmein Programm fertig zu machen.
einen bug bekomme ich nicht raus.

unter __fastcall TKartei::TKartei(TComponent* Owner)
: TForm(Owner)

steht unter anderem folgender source

.....

select =  " Select Patnr,Link,Name,Vorname,geburt,scandat,Zuordnung,Klinik,id,ersteldat ";
	select += " from Dokumente";
	select += " where Patnr = :kolo" ;
	select += " Order By ersteldat DESC";

	ADOQuery1 ->Open();
	ADOQuery1 ->Edit();
	ADOQuery1 ->SQL->Clear();
	ADOQuery1 ->SQL->Add(select);
	ADOQuery1 ->Open();
	ADOQuery1 ->Parameters->ParamByName("kolo")->Value = PatDat(laufwerk1);
	ADOQuery1 ->Requery();
	pat1 = ADOQuery1->FieldByName("patnr")->AsString;
	ADOTableAPW->Open();

		   TLocateOptions Opts;
		   Opts.Clear();
		   Opts << loPartialKey;
		   ADOTableAPW->Locate("Patnr",pat1, Opts);
	Label1->Caption = ADOTableAPW->FieldByName("patnr")->AsString;

obwohl die Ausgabe im Label1 stimmt werden meine DBListBox als auch die DBTextfelder nicht aktualisiert.

Ich habe nun eine Button eingebaut der nochmal die Locate Funktion ausführt -> dann gehts ist aber sehr sehr unsportlich.

Was mach ich falsch?

/Edit akari : Bitte Code-Tags benutzen! sfds

VergissEs

Verwende TForm::OnShow statt den Konstruktor für die Abfrage,
da noch nicht alle Komponenten initialisiert sind.

caia

super vielen Dank das wars ! und so simpel.