لا استطيع افراغ جدول ado

[Anter2010]

السلام عليكم
جرب هذا

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOTable1.open ;
ADOTable1.first;
while not(ADOTable1.eof) do
ADOTable1.delete;
ADOTable1.next;
end;
end.