افزایش سرعت در نوع کد نویسی

سلام این کد نویسی درست کار می کنه ولی خیلی طول می کشه که انجام بشه امکانش هست این کد طوری بنویسید که سریع انجام یشه؟


label
N,B,Q,F,K,H,J,L,M,P,C,Z;
var
i:integer;
a:string;
e:integer;
w:integer;
begin
ADOQuery6.DisableControls;
ADOQuery4.DisableControls;
ADOQuery48.DisableControls;




Edit232.Text:='نيروهاي مسلح';
//M:IF Edit232.Text<>'' then
//begin
ADOQuery6.Close;
ADOQuery6.SQL.Clear;
ADOQuery6.SQL.Add('select * from D1 where ([90mosalah] <>''0'' )and ([90mosalah] <>''-'' )and ([232] = 0) and (tprace=0)');
ADOQuery6.Open;


for e:=1 to ADOQuery6.RecordCount do
begin
ADOQuery4.Close;
ADOQuery4.SQL.Clear;
ADOQuery4.SQL.Add('select * from D where (COD5 = '''+ADOQUERY6.FieldByName('COD5').Text+''')and (GROHKA = ''دارو'')');
ADOQuery4.Open;


if ADOQuery4.RecordCount > 0 then goto P else goto Z;


P:for w:=1 to ADOQuery4.RecordCount do
begin
ADOQuery48.Close;
ADOQuery48.SQL.Clear;
ADOQuery48.SQL.Add('select * from CKHARG where (COD1 = '''+ADOQUERY4.FieldByName('COD1').Text+''') and (NUMEBE = '''+Edit232.Text+''')');
ADOQuery48.Open;


if ADOQuery48.RecordCount > 0 then
begin
ADOQUERY48.Edit;
ADOQUERY48.FieldByName('COD1').AsString :=ADOQUERY4.FieldByName('COD1').Text;
ADOQUERY48.FieldByName('COD2').AsString :=ADOQUERY4.FieldByName('COD2').Text;
ADOQUERY48.FieldByName('NAME1').AsString :=ADOQUERY4.FieldByName('NAME1').Text;
ADOQUERY48.FieldByName('NAME2').AsString :=ADOQUERY4.FieldByName('NAME2').Text;
ADOQUERY48.FieldByName('NAME3').AsString :=ADOQUERY4.FieldByName('NAME3').Text;
ADOQUERY48.FieldByName('FORM').AsString :=ADOQUERY4.FieldByName('FORM').Text;
ADOQUERY48.FieldByName('DOZ').AsString :=ADOQUERY4.FieldByName('DOZ').Text;
ADOQUERY48.FieldByName('TAKHAS').AsString :=ADOQUERY6.FieldByName('article1moslah').Text;
ADOQUERY48.FieldByName('NUMEBE').AsString :=EDIT232.Text;
IF ADOQUERY6.FieldByName('article1moslah').Text<>'غ� �ربيمه اي' THEN ADOQUERY48.FieldByName('KHAREJ').AsString :='-' ELSE
ADOQUERY48.FieldByName('KHAREJ').AsString :='غيربيمه اي' ;
ADOQUERY48.FieldByName('PRODUC').AsString :=ADOQUERY6.FieldByName('90mosalah').Text;
ADOQUERY48.FieldByName('SALE1').AsString :=ADOQUERY6.FieldByName('mprice').Text;
ADOQUERY48.Post;
ADOQUERY4.Next;
end else
begin
ADOQUERY48.Insert;
ADOQUERY48.FieldByName('COD1').AsString :=ADOQUERY4.FieldByName('COD1').Text;
ADOQUERY48.FieldByName('COD2').AsString :=ADOQUERY4.FieldByName('COD2').Text;
ADOQUERY48.FieldByName('NAME1').AsString :=ADOQUERY4.FieldByName('NAME1').Text;
ADOQUERY48.FieldByName('NAME2').AsString :=ADOQUERY4.FieldByName('NAME2').Text;
ADOQUERY48.FieldByName('NAME3').AsString :=ADOQUERY4.FieldByName('NAME3').Text;
ADOQUERY48.FieldByName('FORM').AsString :=ADOQUERY4.FieldByName('FORM').Text;
ADOQUERY48.FieldByName('DOZ').AsString :=ADOQUERY4.FieldByName('DOZ').Text;
ADOQUERY48.FieldByName('TAKHAS').AsString :=ADOQUERY6.FieldByName('article1moslah').Text;
ADOQUERY48.FieldByName('NUMEBE').AsString :=EDIT232.Text;
IF ADOQUERY6.FieldByName('article1moslah').Text<>'غ� �ربيمه اي' THEN ADOQUERY48.FieldByName('KHAREJ').AsString :='-' ELSE
ADOQUERY48.FieldByName('KHAREJ').AsString :='غيربيمه اي' ;
ADOQUERY48.FieldByName('PRODUC').AsString :=ADOQUERY6.FieldByName('90mosalah').Text;
ADOQUERY48.FieldByName('SALE1').AsString :=ADOQUERY6.FieldByName('mprice').Text;
ADOQUERY48.Post;
ADOQUERY4.Next;
end;
end;
Z:ADOQUERY6.Next;
end;
ADOQuery6.EnableControls;
ADOQuery4.EnableControls;
ADOQuery48.EnableControls;
end;

حاجی داری اشتباه میزنی