Como apagar todos os registro de tabela?

Ola pessoal, eu estava tentando fazer uma código para apagar os registro de uma tabela que está vinculado a outro pelo mastersource ... bla bla bla o código eu fiz foi esse:

procedure TForm_produtos.ApagaroRegistro1Click(Sender: TObject);
begin
if Application.MessageBox(´Deseja realmente apagar este registro´,´Confirmação´,mb_yesno + mb_iconquestion) = id_yes then
Begin
if bancos.IBT_movimento_item.RecordCount=0 then
begin
end else
begin
bancos.IBT_movimento_item.Last;
while not bancos.IBT_movimento_item.Eof do begin
bancos.IBT_movimento_item.delete;
if bancos.IBT_movimento_item.RecordCount<>0 then
begin
bancos.IBT_movimento_item.Next;
end else
begin
end;
end;
end;
bancos.IBT_produtos.Delete;
End else
Begin
showmessage(´Antes de apagar algum registro, verifique1´);
End;
end;
/////
só que não apaga todos os registros. o que será que ta errado.