[[cHackAll]]

Sera que te falta un ELSE:

Código Delphi [-]
procedure TForm12.Button1Click(Sender: TObject);
begin
 if dbedit1.Text='' then
  begin
   showmessage('Falta Fecha');
  end
 else  // ESTA
  if edit2.Text='' then
   begin
    showmessage('Falta Cantidad a Traspasar');
   end
  else
   if strtoint(edit2.Text) > strtoint(dbedit6.Text) then
    begin
     ShowMessage('No puede ser Mayor la cantidad que las existencias')
    end
   else
    begin
     form12.Table3.Insert;
    end;

si es solo ese tu codigo, tambien hay begin y ends innecesarios:

Código Delphi [-]
 if dbedit1.Text = '' then ShowMessage('Falta Fecha')
  else if edit2.Text = '' then ShowMessage('Falta Cantidad a Traspasar')
   else if StrToInt(edit2.Text) > StrToInt(dbedit6.Text) then ShowMessage('No puede ser Mayor la cantidad que las existencias')
    else
     begin
      form12.Table3.Insert;
      ...
     end;

PD: usa las etiquetas!!!