With ADOquery1 Do
Begin
Close;
SQL.Clear;
SQL.Add('SELECT Name From sysdatabases');
Open;
first;
ComboBox1.Items.Clear;
While Not Eof Do
Begin
With ComboBox1 Do
Begin
ComboBox1.Items.add(ADOQuery1.FieldByName('Name').AsString);
End;
ADOQuery1.Next;
End;
End;