怎么才能优化下面的这段代码?执行起来好象比较慢
if RadioButton1.Checked then
begin
Memo2.Lines.Add('特等奖:' + Label1.Caption) ;
RadioButton1.Checked := false;
RadioButton1.Enabled := false;
end;
if RadioButton2.Checked then
begin
j := j + 1;
if j < 6 then
Memo2.Lines.Add('一等奖:' + Label1.Caption )
else
begin
RadioButton2.Checked := false;
RadioButton2.Enabled := false;
showmessage('一等奖5名,号码抽取结束');
end;
end;
if RadioButton3.Checked then
begin
k := k + 1;
if k < 21 then
Memo2.Lines.Add('二等奖:' + Label1.Caption)
else
begin
RadioButton3.Checked := false;
RadioButton3.Enabled := false;
showmessage('二等奖20名,号码抽取结束');
end;
end;
if RadioButton4.Checked then
begin
str1 := Copy(Label1.Caption, length(Label1.Caption) - 2, 3);
ADOQuery1.close;
ADOQuery1.sql.clear;
ADOQuery1.sql.Add('select count(*) from etmp where 号码 like "%"+:str1');
ADOQuery1.Parameters.ParamByName('str1').value := str1;
ADOQuery1.open;
n := ADOQuery1.fields[0].asinteger;
l := l + n;
if l <1000 then
begin
Memo2.Lines.Add('三等奖尾数为:' + str1);
end
else
begin
RadioButton4.Checked := false;
RadioButton4.Enabled := false;
showmessage('已经抽取完毕');
end;
end;
===================================================================
一个特等,5个一等,20个二等,三等抽尾数3位