Validacion mensaje de texto

[odrack]

Que tal, Acudo nuevamente a ustedes con este problema, tengo el siguiente codigo:
procedure TForm12.Button1Click(Sender: TObject);
begin
if dbedit1.Text='' then
begin
showmessage('Falta Fecha');
end;
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;

Hace la validacion de en dbedit1, si el siguiente campo (edit2) esta vacio manda el mensaje de error pero tambien inserta en un dbgrid los datos de los dbedti1 y edit2. ¿Alguien sabe por que no hace la validacion correctamente? (solo me mande el mensaje y no inserte nada si es que estan vacios los campos)
Saludos

[[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!!!

[odrack]

Gracias, funciona de maravilla!!
Saludos