得到验证码fun

{得到验证码}
function  TFrmLogin.GetVerfCode():string;
var
   i,iLen : integer;
   sNum : string;
   t:TSIzeF;
begin
  Randomize;
  sNum := Format('%.4d', [Random(10000)]);
  t.cx :=48;
  t.cy :=73;
  iLen := Length(sNum);
  try
    for i := 1 to iLen do
    begin
      case i of
        1: imgVerf1.Bitmap.Assign(imglstVerf.Bitmap(t,StrToInt(sNum[i])));
        2: imgVerf2.Bitmap.Assign(imglstVerf.Bitmap(t,StrToInt(sNum[i])));
        3: imgVerf3.Bitmap.Assign(imglstVerf.Bitmap(t,StrToInt(sNum[i])));
        4: imgVerf4.Bitmap.Assign(imglstVerf.Bitmap(t,StrToInt(sNum[i])));
      end;
    end;
  finally
    Result :=sNum;
  end;
end;