problemer med kode

Hej

jeg har følgende kode, men når jeg aktivere den så fryser programmet uden fejlmeddelelse...

adrconn.first;
while not adrconn.eof do
begin
if adrconn.fieldbyname('showname').Asstring = treeview1.Selected.Text then begin
FlatEdit5.Text := adrconn.fieldbyname('name').AsString;
FlatEdit6.Text := adrconn.fieldbyname('middlename').AsString;
FlatEdit7.Text := adrconn.fieldbyname('lastname').AsString;
FlatEdit8.Text := adrconn.fieldbyname('email').AsString;
FlatEdit9.Text := adrconn.fieldbyname('nick').AsString;
FlatComboBox2.Text := adrconn.fieldbyname('showname').AsString;
TBXDockablePanel3.Visible := true;
adrconn.Next;
end;
end;

Kan ikke selv se hvad det er der skulle give problemer...

Mvh
Jesper