Delphi - borrar registros

amigos, como puedo borrar todos los registros de una tabla usando un componente Table y como usando un Query. gracias

Usando TTable:

With Tabla do
begin
open;
first;
while not eof do
begin
delete;
next;
end;
end;

Usando TQuery:

With Query do
begin
close;
sql.clear;
sql.add('delete from tabla');
execsql;
end;

hago lo que me indicas, no me borra la tabla y me emite el siguiente mensaje de error:
Mltiple Records Found, but only one was expected.
Que puedo hacer. gracias

Como te estas conectando a la B.D.?(ADO, BDE, etc.), y cual SGBD estas utilizando(Access, Interbase, etc.)?

utilizo tablas access. gracias

con la tabla cerrada.

Tabla.EmptyTable;