try except und Finally Problem

[Neotracer64]

Mach so:

Delphi-Quellcode:

try
  DMPlaetzePflegen.ADOCommand1.CommandText :='sql_string';
  DMPlaetzePflegen.ADOCommand1.Execute;

except
Failed := True;
end; // except end;


finally

If Failed Then FAILSQL Else PASSSQL;

end; //Finally End;