With Query1 Do
Begin
   Close;
   SQL.Text:='delete Tdetail_Penjualan,tPenjualan '+
             'from Tdetail_Penjualan,tPenjualan '+
             'where tpenjualan.noFaktur=Tdetail_Penjualan.noFaktur';
   ExecSQL;
end;

@hafiezd: saya pake database dekstop..

@haidarfaz: Gunakan integrity constraint pada database. Untuk master-detail, begitu record pada master dihapus, semua record dengan key sama pada detail akan ikut terhapus. Pake database apa?