Delphi - Eliminando Registros atraves de un Table

Necesito saber como hago para eliminar un registro definitivamente, estoy usando delphi3 y cuando uso el "table1.delete" por ejemplo para eliminar el registro actual este aparenta averse borrado pero cuando abro la base de datos desde foxpro o desde acceses puedo ver que el registro sigue hay solo se le pone una marca. ya intete usar un comando "free" que usa el "destroy" ( table1.free ) y no optuve resultados.

Lo que pide es como compactar tablas. Si trabajas con paradox esta es la forma:

(Este truco se encuentra en el libro de Ian Marteens 'La cara oculta de delphi')

Primero tienes que poner en el Uses BDE. y luego creas un Procedure con la siguiente extructura de código:

var
PxStruct: CRTblDesc;
db:TDataBase;
begin
with TTable.Create(Self) do
try
DatabaseName := 'Nombre_alias';
TableName := 'Nombre_Tabla.db';
Exclusive := True;
Open;
Db := Session.FindDatabase('Nombre_alias');
Db.KeepConnection := True;
Close;
FillChar(PxStruct, SizeOf(PxStruct), 0);
StrPCopy(PxStruct.szTblName, 'Nombre_Tabla.db');
PxStruct.bPack := True;
if DbiDoRestructure(Db.Handle, 1, @PxStruct, nil, nil, nil, False)<> DBIERR_NONE
then raise EDatabaseError.Create('Error en tabla');
Db.Connected := False;
finally
Free;
end;
end;

Se puede tb compactar una BD Access, busca como se hace en la pagina delphi.about.com..