这段VB代码，谁给改成Delphi的？(5分)

Private Sub Form_Load()
Dim oDatabase As SQLDMO.Database
'List available databases ignoring system databses
cboDatabases.Clear
For Each oDatabase In goSQLServer.Databases
If Not oDatabase.SystemObject Then
cboDatabases.AddItem oDatabase.Name
End If
Next 'oDatabase
cboDatabases.ListIndex = 0
' InitScriptTypeList
End Sub

你这个还是Exchange server的吧，搞成delphi？

procedure TForm1.FormCreate(Sender: TObject);
var
oDatabase: TDataBase; //SQLDMO.Database的类型
i: Integer;
begin
//List available databases ignoring system databses
cboDatabases.Clear

//这个循环怎么做？，要看有没有遍历条件，现假定知道 goSQLServer.Databases.Count
For i:=0 to goSQLServer.Databases.count-1 do
begin
oDatabase := goSQLServer.Databases;
If Not oDatabase.SystemObject Then
cboDatabases.AddItem(oDatabase.Name);

end
cboDatabases.ListIndex = 0
// ' InitScriptTypeList
End Sub

看错了，一看到cdo我还为是exchange了呢

多人接受答案了。