SQL Server auflisten

[needatip]

Hallo. Ich versuche mit folgender Prozedur die existierenden SQL Server aufzulisten, bekomme aber folgenden Fehler:
"ungültige Variantenoperation"

Delphi-Quellcode:

procedure TfmSQLServer.FormCreate(Sender: TObject);
var DMOApp, SrvLst: Variant;
            i: Integer;
    aItem: TListItem;
begin
  for i:=1 to SrvLst.Count do
    ComboBox1.Items.Add(SrvLst.Item(i));
end;