تصحيح الكود

عند اغلاق النافذة كتبت الكود

var

i : Integer;

begin

for i:= 1 to form96.ComponentCount-1 do begin

if (form96.Components is TIBTable) then

TIBTable (form96.Components).Close;

if (form96.Components is TIBQuery) then

TIBQuery (form96.Components).Close;

if (form96.Components is TIBDataSet) then

TIBDataSet (form96.Components).Close;

end;

لماذا يحدث خطاء عندما يصبح

for i:= 1 to form96.ComponentCount-1 do begin

if (form96.Components is TIBTable) then

TIBTable (form96.Components).Free;

if (form96.Components is TIBQuery) then

TIBQuery (form96.Components).Free;

if (form96.Components is TIBDataSet) then

TIBDataSet (form96.Components).Free;

end;

end;

او هل يوجد كود للتحرير

ام عندما تغلق النافذة يتم تحريرها