[[Nbull]]

Perdonar que reabra el hilo, pero es que me ha surgido un problema. Tenia un boton que me borraba el registro seleccionado en mi dbgrid con el siguiente codigo:

Código Delphi [-]
procedure TFGestion.BborrarClick(Sender: TObject);
var
button : integer;
begin
button := application.messagebox ('¿Realmente desea borrar la cinta seleccionada?', 
'¿Seguro?', MB_yesno + mb_iconwarning); // Mostramos un mensaje de advertencia
if button = IDYes then begin // Si ha pulsado si...
//Borramos el registro seleccionado solamente de la tabla archivo
DBGrid2.DataSource.DataSet.Delete;
Showmessage('La cinta Nº '+DbNumCinta.Field.Text+' ha sido borrada con éxito');
//Refresco la tabla
AdoQuery2.Active:=false;
AdoQuery2.SQL.Text := 'SELECT Archivo.* , Tema.*,Formato.* FROM (Archivo '+
' LEFT OUTER JOIN Tema ON Archivo.Registro2=tema.Registro2) '+
' LEFT OUTER JOIN Formato ON Archivo.Id=Formato.Id';
AdoQuery2.Active:=True;
end;//sino no hacemos nada

Mi problema es que antes solo me borraba el registro seleccionado en la tabla archivo,pero, ahora me borra un registro en las tres tablas y solo quiero que me lo borre en la tabla archivo.

Como lo puedo solucionar.

Gracias Un saludo.