ADO Database Delphi

Title: How to Get List of Database in Sql Server 2000
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.SQL.Add('Exec SP_DATABASES');
ADOQuery1.Active := True;
end;
For Any Information Mail Me
Mail : Mostafa@Touska.Co.ir