Problema con la sintaxis if then else
 

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

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

Problema resuelto
 

Gracias ese era el problema.
Saludos a todos