Bitmap.Create(3000, 2000, clWhite);
        Proc := TImageEnProc.CreateFromBitmap(Bitmap);
        try
          J := 0;
          K := 0;
           for I := 1 to 80 do
          begin
            X := 80 + J * 1000;
            Y := 300 + K * 50;
            Proc.TextOut(X, Y, I.ToString, '#23435;#20307;', 25, clRed, []);
            if (I mod 30) = 0 then
            begin
              Inc(J);
              K := 0;
            end
            else
              Inc(K);
          end;
        finally
          Proc.Free;
        end;

        Bitmap := TIEBitmap.Create(3000, 2000, clWhite);