Problema con la sintaxis if then else

[Fat]

Mi problema es que escribo esto y me da problemas

procedure TFacturaspagadas.BitBtn8Click(Sender: TObject);
begin
if dbedit20.Text='Nacional'then
adotable3.Post;
adostoredproc2.delete;
else
adotable4.Post;
adostoredproc2.delete;
end

[ContraVeneno]

cuando son más de dos sentencias, hay que poner "begin... end" de lo contrario solo te tomaría la siguiente línea, que ese es tu problema

[Fat]

Gracias ese era el problema.
Saludos a todos