ADO Database Delphi

Title: Get List of Tables in Sql Server 2000?
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.SQL.Add('Exec SP_Tables');
ADOQuery1.Active := True;
end;
{
for Any information Mail Me *
Mail: Mostafa @Touska.co.ir
}