code : pascal
function  ExecDTable(zqr: TDTable; Destroy: boolean): boolean;
var
  str: string;
begin
  str := zqr.SQL.Text;
  try
    zqr.Open;
    result := true;
  except
    on E:Exception do
    begin
      Label1.Caption := str   #13#10   E.Message;
      result := false;
      if Destroy then zqr.Free;
    end;
    on E:EDatabaseError do
    begin
      Label1.Caption := str   #13#10   E.Message;
      result := false;
      if Destroy then zqr.Free;
    end;
  end;
end;
Parsed in 0.004 seconds, using GeSHi