Tablo isimlerini listboxa almak delphi

procedure TForm1.cxButton1Click(Sender: TObject);
var
tablolar:Tstrings;
begin
tablolar := TStringList.Create;
try
    ADOConnection1.GetTableNames(tablolar);
listbox1.Items.Assign(tablolar);
finally
tablolar.Free
end
end;