Borrar todos los datos de una tabla

[dariana20]

es desde Delphi lo hice como en tu ejemplo algo asi:
begin
if modulo.Atemporal.Open then
modulo.Atemporal.First;
while not modulo.Atemporal.Eof do
begin
modulo.Atemporal.delete;
modulo.Atemporal:next;
end;
Pero me da este error despues del then
[Error] Unit2.pas(69): Type of expression must be BOOLEAN
que puede ser